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FOREWORD 


This  Program  Users  Manual  and  the  associated  computer  programs  represent 
the  final  objectives  of  JPL  Contract  951070.  Several  of  the  computer  programs 
covered  in  the  manual  were  largely  developed  under  a prior  contract  ( JPL- 
950626)  and  are  partially  described  in  the  final  report  Avco/RAD  Mars  Venus 
Capsule  Parameter  Study,  Vol.  I,  "Introduction  and  Analysis,  •»  TR-64-1, 
dated  21  March  1964. 


The  two  JPL  contracts  leading  to  the  development  of  the  computer  programs 
and  the  Users  Manual  were  performed  in  the  Advanced  Space  Systems  Direc-  , 
torate  at  the  Space  Systems  Division  of  Avco,  Lowell,  Massachusetts,  Mr.  P. 
Levine  was  the  Project  Engineer  responsible  for  all  technical  work,  and  , 

was  assisted  by  other  members  of  Avco's  technical  staff,  including  Messrs. 

P.  Dicarlo,  A.  Robb,  M.  Russell,  J,  Cloutier,  O.  Zappa,  M.  Moge,  J.  Brown, 
P.  Norton,  G.  Waldman,  J.  Serpico,  R.  Davis,  and  D.  Flinn.  The  program- 
ming was  done  principally  by  Miss  S.  Sillers,  Mr.  D.  Gillespie  and  Mr.  J. 
Klugerman  of  Avco's  Technical  Programming  Staff  with  assistance  from 
Messrs.  A.  Picado,  M.  Greenberg,  E.  Sova,  C.  Berndtson,  and  with  overall 
guidance  from  Dr.  J.  Warga,  Manager  of  the  Mathematics  Department. 

Minor  typographical  corrections  made  by  JPL  1 December  1966.  The 
following  pages  are  affected: 


Program  1880; 
Program  1832 j 
Program  1883; 
Program  1885; 


pg  1 6,  S3,  k9,  67,  69 

PS  31,  W 
PS  33,  50  ; 

pg  3,  12,  18,  92 
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This  manual  has  been  divided  into  a number  of  sections,  each  treated  as  a 
separate  document  with  its  own  table  of  contents  and  list  of  illustrations. 
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by  referring  to  its  tabbed  cover. 
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INTRODUCTION 


A.  OBJECTIVE 

The  objective  of  this  manual  is  to/provide  the  program  user  with  the  necessary- 
understanding  of  the  approximations  contained  in  the  series  of  entry  .vehicle 
design  programs) developed  under  contracts  JPD  950626  and  951070(and  of  the 
input  procedures  / so  that  the  programs  can  be  utilized  with  ease  and  confidence. 
In  view  of  the  stated  objective,  (the  manual  contains  a description  of  each 
program  and  its  specific  purpose.  The  mathematical  model  used  in  each 
program  and  a list  of  basic  limitations  is  provided,  so  that  the  user  can  esta- 
blish the  applicability  of  the  program  to  the  particular  problem  at  hand.) 


Should  the  program  user  wish  additional  information  about  the  calculations 
being  performed  in  the  program,  Die  specific  equations  which  are  programmed 
are  provided!)  Furthermore,  should  questions  arise  as  to  the  manner  in  which 
the  programming  was  done,Qi  section  describing  the  IBM  routines  is  also 
provided  in  the  manual. \ 


The  intent  of  the  set  of  computer  programs  is  to  ascertain  the  effects  of  all 
important  parameters  known  to  influence  significantly  the  choice  of  vehicle 
shape  and  the  calculation  of  the  heat  shield,  structural,  descent,  and  landing 
system  weights.  To  cover  the  complete  design  problem,  one  must  consider 
the  interrelated  aspects  of  the  vehicle  aerodynamics,  heat  transfer,  thermal 
protection,  and  structural  design.  Furthermore,  the  entry  problem  is  often 
bounded  by  overall  systems  considerations  as  to  vehicle  diameter  and  weight 
limitations,  range  of  entry  conditions,  descent  and  impact  system  require- 
ments, and  special  heat  shield  and  structure  material  and  shape  requirements. 


Although  it  is  indeed  commendable  to  achieve  a complete  set  of  computer 
programs  which  utilize  the  very  ''best*'  calculation  models,  the  use  of  such  a 
set  of  programs  would  not  be  compatible  with  the  overall  objectives  to  provide 
a set  of  computer  programs  suitable  for  preliminary  tradeoff  and  parametric 
studies.  A compromise  was  sought  in  formulating  the  computer  programs, 
whereby  the  necessary  inputs  are  not  unduly  excessive  and  are  readily  avail- 


able.  Programming  compromises  were  also  needed  to  avoid  excessive 
computational  time  and  wasteful  generation  of  information  that  is  not  directly 
usable  for  the  problem  at  hand.  The  computer  programs  are  not  intended  to 
be  used  for  detailed  design  studies  but  rather  to  screen  the  range  of  design 
parameters,  to  narrow  their  scope,  and  to  establish  trends. 

B.  INFORMATION  FLOW 

The  thermo- structural  design  problem  of  evolving  the  heat  shield  and  structural 
weights  centers  about  the  heating  and  loads  predictions  arising  from  the  entry 
trajectory  calculations.  The  degree  of  sophistication  in  the  whole  design 
approach  is  therefore  related  to  the  nature  of  the  approximations  used  m 
computing  the  trajectory.  The  simplest  trajectory  approximation  considers 
the  vehicle  as  a particle  without  lift  and  of  constant  drag  coefficient.  For  the 
particle  trajectory  calculation,  the  exact  shape  of  the  vehicle  is  not  necessary 
to  compute  the  trajectory  as  the  entry  vehicle  is  completely  characterized  by 
its  ballistic  coefficient  (M/C^A). 

The  limitations  of  a particle  trajectory  are  often  prohibitive  for  the  prediction 
of  accurate  heating  and  loads  environment,  except  in  the  cases  of  spherical 
bodies  or  where  the  entry  angle  of  attack  and  angular  rates  are  very  small. 
Hence,  in  the  most  general  case,  an  aerodynamic  configuration  and  the  corre- 
sponding aerodynamic  force  and  moment  coefficients  must  be  assessed  prior 
to  a trajectory  calculation.  Program  1881  provides  a first  estimate  of  the 
hypersonic  aerodynamic  coefficients  based  on  Newtonian  flow  theory  if  wind 
tunnel  data  is  not  available.  Frequently,  limited  test  data  is  sufficient  for 
preliminary  design  studies  when  combined  with  the  results  of  Program  1881. 

Specification  of  the  entry  vehicle  geometry  provides  only  part  of  the  information 
necessary  to  calculate  the  angle -of- attack  motions  during  entry.  A major 
aspect  of  the  entry  motion  centers  about  the  vehicle’s  stability,  which  is  highly 
dependent  on  the  center-of-gravity  location  and  the  moments  of  inertia.  The 
first  estimate  of  the  center  of  gravity  and  the  corresponding  moments  of  inertia 
can  be  obtained  from  Program  1881,  based  on  prescribed  stability  criteria. 

As  the  preliminary  design  studies  progress,  the  estimates  of  center  of  gravity 
and  moments  of  inertia  must  be  updated  and  certain  changes  could  significantly 
alter  the  entry  vehicle's  stability  and  further  change  the  heating  and  loads 
environments.  The  information  flow  diagram  depicted  in  Figure  1,  indicates 
the  manner  in  which  Program  1881  can  provide  aerodynamic  coefficients  and 
the  first  pass  estimates  of  the  center  of  gravity  (XCG)  and  the  moments  of 
inertia  about  the  roll  and  pitch  axes  given  in  terms  of  the  respective  radii 
of  gyration  (RGX)  and  (RGY).  The  trajectory  computation  performed  by 
Program  1880  provides  the  angle  of  attack,  velocity,  and  altitude  history 
during  entry.  The  variation  of  the  drag  and  lift  forces  arising  from  the  angle 
of  attack  motions  is  computed,  and  the  effect  of  their  variation  on  the  trajec- 
tory kinematics  is  accounted  for.  As  part  of  Program  1880,  dynamic  pressure 
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Figure  1 INFORMATION  FLOW  WITHIN  VEHICLE  DESIGN  PROGRAMS  (XCG  = DISTANCE  OF 
CG  FROM  STAGNATION  POINT,  RGX,  RGY  = RADII  OF 
GYRATION  ABOUT  X,  AND  Y AXES,  RESPECTIVELY) 
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and  convective  and  radiative  heat  pulses  are  computed  based  on  the  instan- 
taneous flight  conditions;  hence,  the  heating  and  loads  environment  is  related 
to  the  vehicle  dynamics  which,  in  turn,  depends  on  the  estimates  of  the  co- 
efficients, center  of  gravity,  and  the  moments  of  inertia. 

The  heat  pulses  calculated  in  Program  1880  are  considered  to  be  reference 
values,  and  the  heating  at  a point  of  the  body  is  expressible  as  a fraction 
{or  multiple)  of  this  value.  Similarly,  the  pressures  about  the  body  are 
expressible  as  fractions  (or  multiples)  of  the  dynamic  pressure.  The  factors 
by  which  the  reference  pulses  evolved  from  Program  1880  must  be  multiplied 
to  provide  the  local  pressure  and  heating  may  be  found  using  Program  1885, 
if  test  data  is  unavailable.  As  shown  in  Figure  1,  the  output  of  Programs 
1880  and  1885  are  required  simultaneously  to  compute  the  first  pass  on  the 
structural  weight.  Program  1885  requires  the  vehicle  geometry,  atmosphere 
composition,  and  flight  conditions  as  input,  as  well  as  the  angles  of  attack 
for  which  the  pressure  and  heating  distributions  are  required.  The  output  of 
Program  1885  is  set  forth  as  factors  which  can  be  applied  directly  to  the 
heating  and  dynamic  pressure  pulses  using  the  results  of  Program  1880.  The 
distributions  of  Program  1880  are  given  for  the  windward  and  leeward  meri- 
dians only.  In  actuality,  a point  on  the  vehicle  is  subject  to  a heating  and  ‘ 
loads  environment  which  is  affected  by  the  roll  attitude  of  the  vehicle  as 
well  as  its  angle  of  attack.  From  the  viewpoint  of  structural  design,  identi- 
fication of  the  roll  history  of  a particular  point  on  a shell  is  unnecessary, 
provided  thermal  effects  are  not  important.  In  order  to  perform  an  exact 
heat  shield  analysis,  a streamline  pattern  around  the  complete  vehicle  would 
be  required  and  a statistical  treatment  of  the  entry  conditions  would  generally 
be  required  to  establish  the  design  requirements.  With  the  view  of  obtaining 
preliminary  .design  evaluations  with  assurance  that  the  heat  shield  weights 
will  be  conservative,  a simple  approach  can  be  taken  (and  is  used  in  Programs 
1887  and  1889)  which  considers  the  heating  on  the  vehicle  as  if  it  were  in  a 
lunar  motion  utilizing  the  maximum  angle-of-attack  envelope  generated  by 
Program  1880. 

An  important  structural  consideration  is  that  environments  obtained  from  other 
trajectories  on  launch  conditions  may  be  more  critical  than  the  one  for  which 
the  heating  environment  is  most  severe.  By  permitting  optional  inputs  on  peak 
dynamic  pressure  and  deceleration  (or  acceleration)  arbitrary  combinations 
of  heating  and  loads  environments  can  be  studied. 

The  information  flow  diagram  of  Figure  1,  indicates  that  the  appropriate 
outputs  of  Programs  1880  and  1885  are  input  to  Program  1886.  In  addition, 
structural  materials  data  and  design  criteria  are  input  for  Program  1886. 
Program  1886  provides  for  several  options  of  construction;  sandwich, 
stiffened,  or  monocoque.  The  failure  criteria  considers  buckling  and  yield 
stress  with  further  limitations  due  to  minimum  gage. 
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As  the  structural  weight  may  be  dependent  on  its  temperature  rise  due  to  loss 
of  strength  at  elevated  temperatures,  an  interaction  exists  between  the  heat 
shield  and  the  structural  analyses.  Furthermore,  the  heat  shield  interacts 
with  the  structural  calculation  by  creating  inertial  loads  on  the  structure. 

Following  the  initial  sizing  of  the  structure,  from  Program  1886,  and  the 
heat  pulses  via  Programs  1880  and  1885,  sufficient  information  is  on  hand 
to  perform  the  heat  shield  analysis.  Program  1884  calculates  the  heat  shield 
requirements,  if  indeed  one  is  needed.  The  heat  shield  material  properties 
and  design  criteria  are  required  input  as  well  as  the  results  of  Programs 
1880  and  1885.  There  are  several  interaction  mechanisms  between  the  heat 
shield  and  structure,  two  of  which  are  noted  above;  hence,  the  flow  diagram 
of  Figure  1 indicates  a thermo -structural  loop. 

The  internal  payload  is  dependent  on  the  total  entry  weight,  the  heat  shield 
and  structural  weight,  internal  structural  weight,  and  various  system 
constraints  placed  on  the  descent  and  impact  systems.  Program  1882  inte- 
grates the  system  constraints  and  the  results  of  Programs  1884  and  1886 
to  determine  the  net  usable  payload  weight.  In  order  to  provide  sufficient 
flexibility  in  a program  of  this  sort,  numerous  options  are  possible,  e.g. 
single  chute,  two  parachutes,  parachute  and  retro-rocket  combinations, 
spherical  payloads,  cylindrical  payloads,  and  conical  payloads.  System 
constraints  (as  impact  deceleration  limits)  are  inputs  to  Program  1882. 

Upon  solving  for  the  weight  of  the  subsystem  and  determing  the  size  and 
weight  of  each  element,  and  of  the  payload,  a packaging  calculation  is  per- 
formed to  ascertain  whether  the  payload  fits  into  the  vehicle  satisfactorily 
and  provides  a suitable  center -of- gravity  position.  In  addition,  the  overall 
moments  of  inertia  are  computed  based  on  the  detailed  heat  shield  and  struc- 
tures and  subsystems  information  evolved.  As  noted  at  the  very  outset,  the 
initial  estimates  of  center  of  gravity  and  moments  of  inertia  may  be  sufficient 
for  preliminary  design  purposes;  however,  the  refined  values  arising  from 
Program  1882  can  now  be  tested  by  rerunning  Program  1880  and  observing 
the  changes  in  the  heating  and  loads  environment.  If  the  heating  and  loads 
change  significantly  due  to  the  moment  of  inertia  and  center-of-gravity  changes, 
then  a complete  iteration  on  the  structure,  heat  shield,  and  subsystem  weights 
is  required. 

The  last  step  in  the  design  study  is  the  complete  shell  analysis  by  Program 
1888,  including  the  effects  of  payload  attachment,  bending,  and  shear.  In 
order  to  perform  this  analysis,  detailed  pressure  distribution  information 
is  required  for  which  Program  1885  may  be  used.  The  inputs  to  Program  1888 
include  the  preliminary  structural  sizing  and  the  heat  shield  thicknesses,  as 
well  as  the  structural  material  properties  and  failure  criteria.  As  a result 
of  the  refined  structural  analyses  of  Program  1888,  any  significant  changes 
in  structural  weight  can  alter  the  complete  internal  structure  and  subsystem 
weight  breakdown,  requiring  further  iteration  on  these  weights. 
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The  final  overall  loop,  including  Programs  1888  and  1887,  is  considered  as 
Program  1889.  The  input  of  Program  1889  is  clearly  the  input  and  output  of 
all  the  other  programs  and/or  experimental  data  when  available.  The  results 
of  Program  1889  are  the  complete  vehicle  weight  breakdown  of  the  heat 
shield,  structure,  internal  structure,  descent  system,  impact  system,  and 
usable  payload.  Program  1889  closes  the  aero-thermo-structures-systems 
loop,  and  as  such  arrives  at  a preliminary  design  suitable  for  a particular 
entry  problem. 

C.  PROGRAM  FORMAT 

A primary  objective  sought  throughout  all  the  programs  is  the  achievement  of 
uniformity  of  format,  such  as  notation,  units,  and  input  procedures.  The 
problem  of  units  arises  due  to  the  multidiscipline  nature  of  the  various  pro- 
grams. In  dealing  with  each  program  a set  of  units  was  established  which 
appeared  both  convenient  m that  they  are  in  widespread  use  and  logical. 

In  dealing  with  gas  dynamics  and  atmosphere  calculations,  temperature  is 
commonly  given  in  degrees  Kelvin  { K),  whereas  in  dealing  with  the  heat 
shield  and  structure  calculations,  temperatures  are  commonly  given  in 
degrees  Fahrenheit  ( F). 

3 

The  aerodynamicist  deals  with  density  in  slugs /ft  , whereas  the  thermo- 
dynamicist  and  structural  analyst  prefers  lb  (mass)/ft  and  these  conventions 
are  observed.  The  gas  dynamicist  deals  with  pressures  in  terms  of  atmos- 
pheres, the  aerodynamicist  in  PSI  or  PSF,  and  similarly  the  thermo-  and 
structural  analysts.  The  units  of  length  are  restricted  to  either  feet  or  inches 
throughout  the  programs. 

D.  PROGRAMMING  METHOD 

All  programs  are  written  in  Fortran  IV  computer  language.  All  data  is  read 
into  the  computer  through  use  of  the  NAMELIST  feature  of  Fortran  IV.  The 
use  of  machine  language  subroutines  (other  than  the  standard  IBM  library 
subroutines)  are  avoided  whenever  possible.  All  Fortran  IV  input  and  output 
statements  refer  to  specific  logical  tape  units. 

The  program  linking  for  1887  and  1889  employs  the  IBSYS  overlay  feature. 

As  much  independence  as  possible  is  retained  among  the  links. 

This  users'  manual  provides  input  forms  and  the  Fortran  variable  names  of 
input  and  output  quantities.  This  manual  includes  sample  results,  along  with 
instructions  for  preparing  data  and  running  the  programs. 
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I.  INTRODUCTION 


A.  GENERAL  DESCRIPTION 

The  purpose  of  this  program  is  to  determine  the  flight  path,  angle  of  attack 
envelope,  heating,  and  loads  as  a function  of  time  for  an  axisymmetric  vehicle 
during  its  entry  trajectory  into  planetary  atmospheres.  The  general  inputs  re- 
quired include: 

1.  Vehicle  mass  and  moment  of  inertia  data 

2.  Aerodynamic  coefficients 

3.  Entry  conditions 

4.  Planet  and  atmospheric  data 

5.  Heating  factors  based  on  vehicle  shape. 

Convective  heat  pulses  are  computed  at  the  stagnation  point  (laminar)  and  at 
the  sonic  point  (laminar  and  turbulent).  In  addition,  both  equilibrium  and  non- 
equilibrium radiative  heat  pulses  are  computed. 

B.  CALCULATION  MODEL 

A detailed  description  at  the  calculation  model  is  given  in  Reference  1.  A brief 
summary  description  is  provided  herein  for  the  program  user. 

1.  Coordinate  Systems 

The  treatment  of  the  force  equations  during  atmospheric  entry  is  simplified 
by  considering  a coordinate  system  which  uses  only  the  elevation  angle 
gamma  to  define  its  orientation  relative  to  the  local  horizontal  space  plane. 
A heading  angle  is  unnecessary  because  of  the  assumption  of  a spherical, 
nonrotating  planet  The  velocity  vector  is  specified  by  its  scalar  value 
and  the  elevation  angle  y measured  positive  above  the  horizon. 

Since  planar  trajectories  are  of  primary  interest,  only  two  equations  of 
motion  are  required  to  calculate  the  flight  path  of  the  vehicle  in  the  plane 
of  the  velocity  and  gravity  vectors. 

The  body  axes  are  oriented  with  respect  to  a system  of  wind  axes  using  a 
conventional  system  of  Euler  angles.  The  curvature  of  the  flight  path  is  re- 
flected in  a rotation  of  the  wind  axes  with  respect  to  a set  of  fixed  (inertial) 
axes. 
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The  coordinate  systems  used  in  deriving  the  force  and  moment  equations 
are  depicted  in  Figure  1.  The  wind  axes  are  X , Y , and  Z , where 
X coincides  with  the  velocity  vector,  and  Z lies  in  the  plane  of  the 

velocity  and  gravity  vectors.  The  origin  of  Sie  body  axes  X , Y , Z , 

B B B 

and  of  the  wind  axes  are  taken  at  the  c.g.  of  the  vehicle.  The  total  angle 
of  attack  a'  is  the  angle  between  the  body  axis  X and  the  velocity  vector 
(or  Xo). 

V4 

2.  Aerodynamic  Coefficients 


The  aerodynamic  coefficients  utilized  in  the  program  may  be  either  ex- 
perimental or  theoretical  values.  The  coefficients  can  be  input  as  a double 
table  of  angle  of  attack  and  Mach  number  dependency,  including  CN,  Cx, 

C (or  X ) (C  + C ).  The  coefficients  can  also  be  input  to  solve 
m cp  $ m m j 

q 0! 

the  angle-of-attack  motions  using  linear  coefficients  in  which  case  the 
values  are  required  only  at  zero  angle  of  attack,  but  as  functions  of  Mach 

number  including  C_,  C , C , and  C + C . The  sign  and  axes 
& D La  m m m-  5 

a q a 

conventions  used  in  the  aerodynamic  coefficients  are  depicted  in  Figure  2. 


The  damping  coefficient  is  nondimensionalized  by 

a c 


2V 


for  example, 


The  reference  area  corresponds  to  the  reference  length,  which  is  the 
vehicle  diameter. 


3.  Force  Equations 

The  calculation  model  assumes  a spherical  nonrotating  planet.  The  force 
equations  are  written  in  wind  axes  (X^,  Y^}  Z^)  aligned  along  the  instan- 
taneous velocity  vector  as  shown  m Figure  1.  The  side  force  equation 
was  omitted,  and  the  resulting  drag  and  lift  equations  describe  the  motion 
of  the  vehicle's  center  of  gravity  in  the  instantaneous  plane  of  the  tra- 
jectory. 


The  component  of  the  total  lift  that  lies  in  the  plane  of  the  trajectory 
depends  on  the  orientation  of  the  vehicle.  Using  a set  of  Euler  angles, 

0,  (pas  shown  in  Figure  1,  which  determine  the  orientation  of  the  body 

fixed  axes  (X  , Y , Z ) with  respect  to  the  wind  axes,  the  force  equations 
B B B 

have  the  form, 

DRAG:  mV  = - C^Aq  ~ nig  sin  y 


LIFT: 


(In  the  plane  of  g and  V)  * 

. raV^  cos  y 

m V y = — — — 1 - mg  cos  y + 

Rz 

-2- 


cLAq 


sin  0 
sin  a’ 
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AXISYMMETRIC  COEFFICIENT  CONVENTIONS 


XB 


65-11501 


ANGULAR  RATE  CONVENTIONS 


Figure  2 AERODYNAMIC  COEFFICIENTS  CONVENTIONS 
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where  a'  is  the  total  angle  of  attack  and  is  related  to  the  Euler  angles  by, 

. 2 , 2 , 2 . . 2 . 
sm  a1  = sm  0 + cos  0 sm  0 

The  gravity  vector  is  taken  as  radial,  and  pointed  towards  the  center  of 
the  planet.  The  gravitational  field  assumes  an  inverse  square  relationship. 
The  force  coefficients  required  to  solve  the  force  equations  can  be  specified 
as  a function  of  angle  of  attack  and  Mach  number. 

4.  Moment  Equations 

The  moment  equations  are  derived  using  the  body  axes  indicated  in  Figure  1 
and  the  total  angular  rates  are  taken  with  respect  to  a fixed  set  of  axes.  'The 
angular  rates  are  divided  into  two  parts;  those  with  respect  to  the  wind  axes, 
and  those  due  to  the  motion  of  wind  axes  with  respect  to  the  fixed  axes.  The 
motion  of  the  body  axes  with  respect  to  the  wind  axes  is  given  by  the  changes 
in  Euler  angles  and  also  in  a set  of  rate  components  P,  O,  R about  each  axis, 
where  P,  Q,  R are  related  only  to  the  changes  m the  Euler  angles.  The 
additional  angular  rate  effects  arise  because  of  flight  path  curvature  (changes 
in  the  direction  of  the  velocity  vector)  due  to  lift  and  gravity. 

The  changes  m flight  path  curvature  due  to  lift  is  used  m its  entirety,  i.  e., 
the  total  lift  force  is  used  including  the  out  of  plane  component.  The  analysis 
proceeds  along  the  lines  of  Reference  1.  An  order  of  magnitude  analysis  is 
made  and  only  those  terms  which  could  affect  the  results  significantly  are 
retained. 

The  total  angular  rate  ^2  with  respect  to  a set  of  fixed  axes  has  components 
P1,  Q1,  R1  along  the  body  axes  such  that, 

0=  I P1  + J Q1  + k R1 

The  calculation  model  is  restricted  to  axisymmetric  ballistic  vehicles  for 
which  the  products  of  inertia  are  zero,  and  = 1^,  hence,  the  external 

moment  vector  is  related  to  the  rate  of  change  of  angular  momentum  by 


M = i IXP'  + j | 

LIYQ1 

- P*R*  dY 

-v 

+ k 

[iyk. 

+ p'Q*  aY 

The  external  moment  vector  may  be  expressed  as 


M=M> 


I J sin  a 
\ sin  Q” 


k sin 


«■)  + N'(‘ 


- J sin  g 
sin  a' 


i a*  / 
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The  aerodynamic  moments  (M1)  and  (N1)  are  given  approximately  by 

2 2 

M'  = C qAd  + (C  + C ) &>  ; N'  = {C  + C ) 

m m m*  2V  m m*  2V 

< q CL  q cl 

where  is  the  rate  of  precession  of  the  plane  containing  V and  i. 

The  wind  axes  pitch  about  the  axis  due  to  gravity  at  a rate, 

* g cos  y 

y t v 

(Gravity  term  m above  lift  equation.  ) 

Due  to  lift,  the  flight  path  curvature  can  be  out  of  the  plane  of  the 
trajectory  and  is  given  by 

* _ D (Lift  term  in  above  lift  equation  is  m-plane 

^L  mV  component  only.  ) 

As  y^  lies  along  M*  the  expressions  for  P>,  Q',  R1  can  be  written  as, 

P1  - P + v 

yTX 

m r\  , * sin  a 

Q 1 = Q + y_  — ; + 


rTX 

sin  a 

yL 

sin  cv  1 

+ yTY 

yL 

sin  $ 
sin  a 1 

+ ^TZ 

'ty 

and  ym„ 
/TZ 

are  the 

X , Y and  Z , respectively. 

a id  a 

Introducing  the  further  approximations, 
A a' 

VT  = CT  — 1 TT 


yL  < < a 1 
yTX<<P 

then  the  resultant  expression  for  the  moment  equations  are, 
A qAd  C sin  cl  , Qd  ( ^m  + ^m  • 

Q = “t m TrTTTi  + v-  a « - 


qAd 

Cm 

sin  a j 

Qd  / 

sin  a1 

“ \ 

PIx 

cLAq 

sin  8 + 

PIx 

JY 

mV 

sin  a.  * 

h 

a Y I + PR  1 - - 
__  ,2  ) Y 


X g COS  y ....  a ■ » . 

— — — y — £ (sm  if)  sm  0 cos  <o  - cos  if)  sin  «>) 


Civ 


qAd 


sm  R Rd 
sin  oi ' + V 


C^q 

mV 


sin  g 
sin  a’ 


PI. 


X 


X C Cx  T 

+ m,  L I__ 

a - a Y 

2 md^ 


- PQ  (1 


g cos  y (cos  $ cos  <p+  sm  0 sin  0 sin  <p) 
V 


o 

P = 0 

cL 

The  moment  equations  display  the  coupling  of  the  plunge  damping  term  a 
frequently  found,  e.g. , References  3,  4,  and  5.  It  should  be  noted  that  the 
C is  now  a function  of  angle  of  attack  (and  also  of  Mach  number  if  desired). 
m 

The  terms  yielding  the  coupling  effects  of  flight  path  curvature  due  to  lift 
and  gravity  with  spin  have  also  been  retained. 


The  occurrence  of  the  L explicitly  is  of  interest  as  the  usual  six-degree 
O' 

of  freedom  computation  effectively  computes  implicitly  by  interpolating 

C and  C from  input  tables.  Hence  differences  between  the  two  formu- 
la X C C 

lations  are  likely  at  small  values  of  m + m*  and  especially  at  large 
C c * a 

negative  values  of  where  the  L controls  the  angle-of-attack  envelope 

below  peak  dynamic  pressure.  The  present  program  provides  for  accurate 

Q 

simulation  of  L^by  direct  input  tables  or  by  curve  fitting  computed  values  of 

C obtained  from  C and  C input  data. 

JL»  NX 


To  permit  elementary  studies  of  lifting  vehicles,  the  (Q)  equation  given  above 
has  the  additional  aerodynamic  term. 


-CX  • *00*" 


By  input  of  the  quantity  Zqq»  a trim  condition  at  other  than  zero  angle  of 
attack  can  be  achieved,  resulting  in  a lifting  trajectory.  The  use  of  the 
off-set  center  of  gravity  is  restricted  to  planar  motions,  i.  e.  zero  spin,  and  zero 
sideslip  angle. 

The  dynamic  solution  is  programmed  for  the  two  moment  equations  discussed 
above  and  also  for  the  linearized  solution  discussed  in  Reference  1.  The 
adequacy  of  the  approximate  dynamical  treatment  for  most  practical  entry 
problems  of  ballistic  vehicles  has  been  studied  and  comparisons  made  with 
six-degree- of-freedom  solutions  in  Reference  1 (Vol.  II)  and  a typical  re- 
sult is  shown  in  Figure  3,  for  a planar  oscillation  and  for  a spin  case. 
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Figure  3a  TRAJECTORY  COMPARISONS  WITH  SIX  DEGREE  OF  FREEDOM  RESULTS 


ANGLE  OF  ATTACK  ENVELOPE  , a , degrees 


Figure  3b  TRAJECTORY  COMPARISONS  WITH  SIX  DEGREE  OF  FREEDOM  RESULTS 
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5.  Heat  Pulses 


Convective  and  radiative  heat  pulses  are  computed  along  the  trajectory. 

The  convective  pulse  at  the  stagnation  point  utilizes  the  stagnation  point  velocity 
gradient  data  for  the  particular  shaped  vehicle  being  studied.  The  stagna- 
tion heating  is  based  on ’the  correlations  of  Reference  1 for  CC>2»  Ng,  C>2 
mixtures,  Turbulent  heating  at  the  sonic  point  is  computed  by  testing  a- 
gainst  a specified  local  {not  ambient)  transition  Reynolds  number  criterion. 

The  turbulent  heating  correlation  is  for  air  as  given  by  Detra.  Comparison 
of  the  program  calculations  with  data  of  Reference  3 is  shown  for  the 
stagnation  point  in  Figure  4,  Limited  data  on  turbulent  heating  m N2  - CO2 
mixtures  given  in  Reference  4,  indicates  a negligible  difference  in  the  heat 
rates  due  to  composition  when  compared  with  air  data. 

The  equilibrium  radiation  heating  is  calculated  via  Program  1883  which  is 
connected  directly  to  the  trajectory  computation.  A description  of  the  e- 
quilibrium  radiation  model  is  given  in  Program  1883.  A comparison  of  the 
program  calculations  with  data  and  other  predictions  is  given  in  Figure  5. 

The  none qui librium  model  is  discussed  in  Reference  1 and  summarized  in 
Figure  6.  The  relative  features  of  the  model  can  be  controlled  using  ex- 
perimental data  to  adjust  the  ratios  of  lNE  /lE  by  input  of  IRNE,  and  the  ex- 
tent of  the  nonequilibrium  zone  by  input  of  KNE. 

An  alternate,  nonequilibrium  model  is  possible  wherein  the  nonequilibrium 
radiation  contribution  is  assumed  to  be  independent  of  density  (except  for 
truncation  effects)  and  only  a function  of  velocity.  A simplified  model  is 
utilized  such  that  INE  = f (V),  with  the  nonequilibrium  intensity  speci- 

fied as  a function  of  velocity  based  on  experimental  data,  e,  g,  , References 
5 and  6. 

6.  Summary  of  Calculation  Model 

The  calculation  model  can  be  used  to  study  any  of  the  following  problems. 

a.  Parachute  Problem- -The  vehicle  m/Cj^A  requirements  for 
achieving  a prescribed  Mach  number  at/ or  prior  to  a specified  altitude. 

b.  Vehicle  Stability- -The  adequacy  of  the  vehicle’s  stability  as  a 
function  of  entry  pitch,  yaw,  roll  rates,  and  angle  of  attack. 

c.  Vehicle  Performance --The  change  m the  trajectory,  heating,  and 
loads  caused  by  the  effects  of  the  angle- of-attack  motions  on  the  flight 
path  (velocity- altitude  history). 


-10- 

23  < 


N 

A 


0 10  20  30  40  50 


65-11583  A 


FLIGHT  VEL0C1TY,V  ,fpsx!03 


Figure  4 STAGNATION  POINT  HEATING  COMPARISONS  WITH  DATA 
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Figure  5 RADIATION  HEATING  COMPARISONS  WITH  DATA 
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Figure  6 NONEQUILIBRIUM  RADIATION  CALCULATION  MODEL 


d.  Convective  Heating — The  stagnation-point  and  sonic-point  convec- 
tive heating  pulses  as  well  as  an  indication  of  transition, 

e.  Radiative  Heating--The  stagnation-point  equilibrium  and  non- 
equilibrium radiative  heating  pulses^ 

f.  Loads- -The  dynamic  pressure,  and  axial  and  normal  load  pulses* 

g.  Atmosphere- -The  effects  of  atmosphere  composition  and  vertical 
structure  on  all  the  trajectory  variables. 

h.  Planet- -The  effects  of  planet  parameters  on  all  the  trajectory 
variable  s . 

i.  Scaling — The  effects  of  changing  vehicle  diameter  and/or  mass. 

C.  PROGRAM  LIMITATIONS 

The  calculation  model  imposes  several  basic  limitations  on  the  range  of  tra- 
jectory problems  that  can  be  simulated  with  the  program.  These  limitations 
include : 

1.  The  approximations  utilized  prevent  the  entry  vehicle  from 
developing  an  angle  of  attacK  due  to  flight  path  curvature  alone;  hence,  ve- 
hicles entering  with  zero  rates  and  ae  = 0 or  «e  = 180  will  remain  at  the  same 
angle  of  attack  throughout  entry. 

2.  The  vehicle  motions  which  can  be  simulated  are  limited  by  the  assump- 
tions of  an  axisymmetric  inertia  ellipsoid  (spin  rate  stays  constant  through- 
out entry). 
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II.  USAGE 


A.  INPUT 

DEFINITIONS 

Name 

Preset 

Symbol 

Parameter 

Units 

ALAM 

0.5 

aL 

Density  exponent  in  QS  formula. 

ALPCR 

0. 

Critical  angle  of  attack;  if  angle 
of  attack  at  peak  dynamic  pres- 
sure is  < ALPCR,  the  dynamics 
computation  switches  to  the  lin- 
earized equations. 

degrees 

ALPHAE 

“e 

Angle  of  attack  at  entry. 

degrees 

AR 

89516. 

R 

Gas  constant 

ft2/  sec2-mole-°K 

ATM0S 

Number  used  to  identify  atmos- 
phere used  for  the  calculations. 

ATRB 

0.8 

®T 

Density  exponent  used  in  QSTAR 
formula  after  transition  occurs. 

-- 

BEAM 

e 

0. 

bL 

(Velocity/ 104)  exponent  used  in  QS  — 

formula.  If  = 0 (preset  value),  it 
is  computed  by  the  program  to  be 
3.  909  - . 0229M  where  M is  the 
molecular  weight  of  the  atmosphere. 

BTRB 

3.18 

h: 

( Velocity/  104)  exponent  used  in 
QSTAR  formula  after  transition 

-- 

occurs . 

CASE 

Number  used  to  identify  the  case 
being  run. 

> 

CDFM 

CD 

Table  of  zero  angle  of  attack  drag 
coefficient  variation  as  a function 
of  Mach  number  only.  Maximum 
number  of  entries  = 10.  See 
MC7NEY. 

- 
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RE-GROER  Hu 


Name 

CDR0P 

CLAFM 

CMAFM 

CMC0D 

CMFA 

CMIN 

CMQFA 


Preset  Symbol 
Values 


Parameter 


2. 


C 


La 


Cr 


la 


*CM 

d 


Number  used  to  delete  moment 
equations  after  peak  dynamic 
pressure.  Switches  to  M0NLY 
coefficients  . When, 

/ m Ssi 

l/2pV2  < CDRtfSp 

\cda 

Table  of  lift  curve  slope  varia- 
tion as  a function  of  Mach  number 
only.  Used  with  M0NLY  table; 
maximum  number  of  entries  = 10. 

Table  of  pitching  moment  de- 
rivative 

*V\,  as  a function  of  Mach  num- 

da) 

ber  only.  Used  with  M0NI/Y  ta- 
ble; maximum  number  of  entries 
* 10. 

Non  dimensional  center-of-gravit  y 
location  for  CMFA  data  . 

Table  of  pitching  moment  coeffi- 
cient as  a function  of  angle  of  at- 
tack and  Mach  number.  Used  with 
CMC0D  and  CMIN  = 1.  0.  Max- 
imum number  of  entries*  19  angles 
of  attack  (corresponding  to  TABAL) 
and  5 Mach  numbers  when  used 
with  MANUAL  table . 


C C 
m + m. 
q a 


Number  which  if>  0 provides  the 
pitching  moment  from  CMFA  and 
CMC0D,  and  if  <0  from  XCPFA . 

Table  of  damping  coefficient, 

■"j  , as  a function  of  an- 
gle of  attack  and  Mach  number. 
Maximum  number  of  entries:  19 
angles  of  attack  (corresponding 
to  TABAL)  and  5 Mach  numbers 
when  used  with  MANDAL  table. 
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Units 


per  radian 


per  radian 


per  radian 
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External 

Name 

CMQFM 
CNF  A 

CXFA 

DATE 

DELMAC 

DELMT 

DEL0RC 


Preset  Symbol  Parameter  Units 

Values 

C + C 

m m » Table  of  damping  coefficient  per  radian 

^ a variation  as  a function  of  Mach 

number  only.  Maximum  num- 
ber of  entries  = 10,  Used  with 
M0NLY  table. 

CN  Table  of  normal  force  coeffi- 

cient specified  as  a function 
of  angle  of  attack  and  Mach  num- 
ber. Maximum  number  of  entries: 

19  angles  of  attack  {corresponding 
to  TABAL)  and  5 Mach  numbers 
when  used  with  MANDAL  table. 

Cj£  Table  of  axial  force  coefficient, 

specified  as  a function  of  angle 
of  attack  and  Mach  number.  Max- 
imum number  of  entries*  19  an- 
gles of  attack  (corresponding  to 
TABAL)  and  5 Mach  numbers, 
when  used  with  MANDAL  table. 


d 


0.5 


0. 00001 


Vehicle  diameter  (reference  length).  feet 

Number  used  to  identify  the 
problem  being  run. 

When  the  Mach  number  < 5,  out- 
put will  be  provided  whenever  the 
difference  in  Mach  number  from 
the  last  output  value  is  > DELMAC 

This  is  the  lower  limit  in  At  to 
which  the  predictor- corrector  in- 
tegration method  is  allowed  to 
cut  At  to  improve  accuracy. 

See  description  of  ADAMS4. 


A/Rc  Table  of  stagnation  shock  standoff 
/ A \ 

distance  I p/T/  corresponding  to 
TAB  DR.  Maximum  of  10  entries. 
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Name 

Preset  Symbol 

Values 

Parameter 

Units 

deltat 

0.01 

Initial  At  used  by  the  predictor- 
corrector  integration  method. 
See  description  of  ADAMS4. 

sec 

DIRNE 

Total  nonequilibrium  radiation  sec 

tensity.  (Twice  the  body  rate). 

DNBND 

0.001,  l.E-6, 
0.  01,  0.  0001, 

0.  0001,  l.E-5, 

1. E-5,  l.E-5 

Array  of  lower  limits  used  by  the 
predictor-corrector  subroutine 
• ADAMS4,  as  accuracy  bounds 
on  V,  y,  Z,  Q,  R,  Q, 

FALR 

L1 

Temperature  gradient  in  tropos- 
phere expressed  as  a fraction  of 
the  adiabatic  lapse  rate. 

GAME 

Ye 

Entry  flight  path  angle  (positive 
up). 

degrees 

GSL 

SSL 

Gravitational  acceleration  at  the 
planet  surface. 

ft/sec^ 

GTST 

2. 

When  the  reference  convective 
heat  pulse  is  > 1,  output  will  be 
provided  if  the  difference  in  the 
current  flight  path  angle  from  the 
last  output  value  is  GTST. 

degrees 

IPHEAT 

0. 

When  IPHEAT  > 1,  tables  of  time, 
QS,  QSTAR,  HM/RTQ,  'and  QRNE 
are  provided  on  punched  cards 
from  logical  Tape  7, 

-- 

IPRINT 

0* 

When  IPRINT  > 1,  output  is  pro- 
vided at  each  integration  step. 
The  angle  of  attack  (not  the  en- 
velope) is  printed.  Use  of  this 
option  more  than  doubles  running 
time  and  increases  output  by  3 to 
4 orders  of  magnitude. 

IPRQRD 

0. 

When  IPRQRD  is  > 1,  the  com- 

plete  output  (chemical  composi- 
tion, etc.  ) of  each  radiation  heat- 
ing calculation  is  provided. 
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Name 

IRNE 

KNE 

LS 

LTH 

MANDAL 


MASS 

MEM0 

M0NLY 


Preset  Symbol  Parameter  Units 

Values 

10.  Non  equilibrium  intensity  ratio. 

2.3  Multiplicative  constant  used  to 

compute  the  nonequilibrium  thick- 
ness 


-5*  Sentinel  used  to  control  the  pre- 

dictor-corrector integration  meth- 
od, used  for  initialization  and  to 
follow  the  course  of  the  integra- 
tion. See  description  of  ADAMS4. 


L«th  Temperature  gradient  in  ther-  °K/ft 

mosphere. 

(Preset  = 0 for  coefficients  as  a 
function  of  a only).  Mach  number 
table  (maximum  5 values)  for  coeffi- 
cients as  function  of  both  Mach 
number  and  angle  of  attack.  When 
this  table  is  specified,  tables 
CXFA,  CNF  A,  CMQFA,  and  either 
XCPFA  or  CMFA  must  be  speci- 
fied for  each  Mach  number  in 
MANDAL,  At  Mach  numbers  be- 
low (or  above)  those  specified  in — 
MANDAL  table,  program  uses  co- 
efficients corresponding  to  lowest 
(or  highest)  Mach  number  listed. 

m Mass  of  vehicle.  slugs 


Number,  used  to  identify  the  pro- 
blem being  run . 

Independent  variable  table  of 
Mach  numbers  used  to  compute 
coefficients  as  a function  of  Mach 
number  only.  Maximum  number 
of  entries  is  10.  See  CDFM, 
CMAFM,  CLAFM,  CMQFM. 
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Name 

Preset 

Values 

Symbol 

Parameter 

Units 

MVE 

1. 

If  MVE  = 1.  0 (preset  value),  the 
atmosphere  is  computed  from  the 
input  parameters.  If  MVE  = E.  0, 
the  atmosphere  is  computed  from 
tables  in  which  the  altitude  (ZTBLi) 
is  the  independent  variable. 

NPTST 

51 

Maximum  number  of  lines  of  tra- 
jectory output  per  page. 

line/ page 

PE 

P 

e 

Spin  rate  at  entry. 

rad/ sec 

PTH 

PTH 

Atmospheric  pressure  at  base  of 
thermosphere. 

lb/ft2 

PTMAC  -100. 


QDYPT  -100. 


QE  Qe 

OTST  200. 


RE  Re 

REYT  3.E5  Re 


If  PTMAC  > 0,  linearly  inter- 
polated values  of  the  trajectory 
output  quantities  will  be  printed 
at  the  Mach  number  - PTMAC 
Do  not  use  simultaneously  with 
QDYPT  (see  below). 

2 

If  QDYPT  >0,  linearly  inter-  Ib/ft 
polated  values  of  the  trajectory 
output  quantities  will  be  printed 
at  the  dynamic  pressure  = 

QDYPT  . Do  not  use  simultane- 
ously with  PTMAC  (see  above) 


Pitch  rate  at  entry.  * rad/ sec 

2 

When  the  reference  convective  Btu/ft 

heat  pulse  is  •>  1,  output  will  be 
provided  if  the  difference  of  the 
integrated  reference  convective 
heat  pulse  from  the  last  output 
value  is  > QTST. 


Yaw  rate  at  entry. 


rad/ sec 


Transition  Reynolds  number  for 
QSTAR  based  on  SS0D. 


Name 


Preset  Symbol 
Values 


Parameter 


Units 


RGX 

Nondimensional  radius  of  gyra- 
tion for  roll  moment  of  inertia. 

RGY 

a 

y 

Nondimensional  radius  of  gyra- 
tion for  pitch  moment  of  inertia. 

RH0SL 

PSL 

Density  of  the  atmosphere  at  the 
planet  surface. 

slug /ft3 

R0TBL 

P 

Dependent  variable  table  of  den- 
sity used  with  ZTBLi  to  compute 
atmospheric  density  when  MVE  = 
2.  0 (see  above).  Maximum  num- 
ber of  entries  is  101. 

slug /ft3 

RSL 

rsl 

Radius  of  the  planet . 

feet 

SS0D 

sVd 

Ratio  of  distance  from  sonic  point 
to  the  stagnation  point  at  zero  angle 
of  attack  to  the  vehicle  diameter. 

TABAL 

a 

Independent  variable  of  angle  of 
attack  used  to  compute  coeffi- 
cients as  a function  of  Mach  num- 
ber and  angle  of  attack.  Maxir 
mum  number  of  entries  is  19. 

degrees 

TAB  DR 

Independent  variable  table  of  stag- 
nation point  density  ratios  ( ps  / 
pa)s  used  with  DEL0RC  (see  above) 
and  VGFDR  (see  below).  Maxi- 
mum number  of  values  is  10. 

TETBL 

T 

Dependent  variable  table  of  tem- 
perature used  with  ZTBL  to  com- 
pute atmospheric  temperature 
when  MVE  = 2.  0 (see  above). 
Maximum  number  of  entries  is 
101. 

°K 

THF  1. 

Turbulent  heating  factor  used  to 
compute  QSTAR  after  transition 
has  occurred. 

— 

THF 


Name 

Preset  Symbol 

Values 

Parameter 

Units 

TSL 

T 

1SL 

Atmospheric  temperature  at  the 
planet  surface. 

°K 

TST 

tst 

Atmospheric  temperature  in  the 
stratosphere. 

°K 

TST0P 

1000. 

Maximum  permitted  value  of  the 
independent  variable  time  for  the 
integration  of  the  trajectory  equa- 
tions. 

seconds 

TZER0 

0. 

Initial  value  of  the  independent 
variable  time  for  the  integration 
of  the  trajectory  equations. 

seconds 

UPBND 

0.01,  l.E-5, 

0.  1,  0.001,  0.  001, 
0.0001,  0.  0001, 

0. 0001 

Array  of  upper  limits  used  by  the 
predictor- corrector  subroutine 
ADAMS4  as  accuracy  bounds  on 
Y,  y,  Z,  Q,  R,  0,  6,  (p , respec- 
tively. 

UPDN 

0.2 

Factor  by  which  the  predictor- 
corrector  method  increases  or 
decreases  At  (depending  on  ac- 
curacy) during  the  integration. 
See  description  of  ADAMS4. 

YE 

Ve 

Entry  velocity. 

ft/sec 

VEHICL 

Identification  number  for 
vehicle. 

— 

VIRNE 

Velocity  table  used  when  DIRNE 
is  specified  maximum  of  10  val- 
ues. 

ft/  sec 

VGFDR 

d / du\ 

2V  Ws 

Dependent  table  of  velocity  gra- 
dient, used  with  TAB  DR  (see 
above).  Maximum  number  of  en- 
tries is  10 , 

— 
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Name 

VST0PQ 

VTST 

XA 

XC 

XCG0D 

XCPFA 


XN 

X0 

XPRIN 


Preset  Symbol  Parameter 

Values 


‘12000.  The  slowest  velocity  at  which  the 

radiation  heating  calculation  will 
be  done.  It  must  be  > 5000. 

600.  When  the  reference  convective 

heat  pulse  xs  > 1,  output  will  be 
provided  if  the  difference  between 
the  velocity  and  the  last  output 
velocity  is  > VTEST. 

Mole  fraction  of  molecular  Argon 
in  the  atmosphere. 

Mole  fraction  of  CO2  in  the  atmos- 
phere. 

Center-of-gravxty  location  of  the 
vehicle  as  a fraction  of  vehicle 
diameter. 

Aerodynamic  center-of-pressure 
location  as  a fraction  of  vehicle 
diameter.  This  table  as  a func- 
tion of  angle  of  attack  and  Mach 
number  is  used  to  provide  the 
pitching  moment  when  CMIN  = 0. 
Maximum  number  of  entries:  19 
angles  of  attack  (corresponding 
to  TABAL)  and  5 Mach  numbers 
when  used  with  MANDAL. 


Mole  fraction  of  N2  in  the  atmos- 
phere (must  > 0.001). 

Mole  fraction  of  O2  in  the  atmos- 
phere. 

1 If  the  value  of  LS  (see  above)  is 

1.  0,  output  will  be  provided  in 
even  intervals  of  XPRIN,  Using, 
this  option  will  generally  invali- 
date the  angle-of-attack  envelope 
values  printed  in  the  output, 
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Units 
ft/ sec 

ft/sec 

in 


sec 


ran  it  ute-w 

Preset 


Name 

Values  Symbol 

Parameter 

Units 

ZC  G0D 

Center-of-gravity  offset. 

feet 

ZE 

2e 

Entry  altitude. 

feet 

ZST0P 

0. 

The  integration  of  the  trajectory 
equations  is  terminated  when  the 
value  of  the  dependent  variable  Z 
is  < ZST0P 

ZTBL 

Independent  variable  table  of  alti- 
tude used  with  R0TBL.  and  TETBL. 
to  compute  atmospheric  proper- 
ties when  MVE  = 2.  0 (see  above). 
Maximum  number  of  entries  is 
101. 

feet 

ZTST 

2.E4 

Where  the  reference  convective 
heat  pulse  is  •>  1,  output  will  be 
provided  if  the  change  in  altitude 
, is  > ZTEST. 

feet* 

B.  INPUT  PROCEDURES 

* 1. 

General 

a.  Decimal  points  can  be  used  on  all  inputs.  However,  omitting 
decimal  points  on  integers  will  not  cause  difficulty. 

A preset  variable  need  not  be  input  unless  a different  value  is 
desired. 

c.  After  the  first  data  case  of  a set  of  stacked  cases,  only  changed 
inputs  must  be  specified. 

d.  Inputs  DATE,  MEM0,  CASE,  ATM0S,' and  VEHICL  have  no  ef- 
fect on  the  computation  and  may  be  omitted.  They  appear  at  the  top 
of  the  trajectory  printout  as  a convenience  in  identification. 

e.  All  independent  variable  tables  must  be  specified  in  monotonic 
ascending  order. 

f.  The  output  is  adjusted  to  allow  for  a maximum  of  150  lines  of 
printout;  the  amount  of  printout  is  adjusted  by  optional  program  con- 
trols. 
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g.  A set  of  computer  input  forms  are  provided  for  the  user.  All 
the  data  shown  on  the  form  is  keypunched  when  the  variable  is 
supplied. 

2.  Atmosphere 


a.  The  atmosphere  may  be  specified  by  either  of  two  methods,  para- 
metric or  tables.  Optional  input  MVE, preset  for  parametric  inputs, 
selects  the  input  method. 


b.  The  parametric  input  method  is  more  convenient  for  theoretical 
atmospheres  such  as  JPL  Mars  models  G,  H,  I,  J,  and  and  NASA 
Mars  models  1,  2,  and  3^.  The  program  inputs  are  readily  obtainable 
from  the  definitions  of  these  atmospheres  (see  Table  I). 


c.  For  precise  atmosphere  specification,  e.  g.  Earth,  complete 
tables  of  density  and  temperature  versus  altitude  may  be  input. 


d.  Additional  to  the  temperature  and  density  properties  of  the  atmos- 
phere, the  composition  is  input  as  mole  fractions  of  oxygen,  nitrogen, 
carbon  dioxide,  and  argon.  The  sum  of  these  fractions  must  equal  1. 
The  nitrogen  fraction  must  not  be  less  than  0.  001. 


3.  Calculation  Time 

The  input  CDR0P  was  introduced  to  permit  a reduction  in  computation 
time  where  a vehicle  undergoing  large  oscillations  has  reached  close  to 
terminal  velocity  at  high  altitude.  Calculation  of  the  angle  of  attack  mo- 
tions until  impact,  using  the  moment  equations,  would  consume  a great 
deal  of  time  for  such  a case.  Hence,  specifying  CDR0P  places  a restraint 
on  the  computational  time. 

Other  controls  on  calculation  time  are  possible  by  specifying  TST0P,  the 
maximum  permitted  trajectory  time,  or  by  specifying  ZST0P  as  the  al- 
titude at  which  the  trajectory  calculation  must  be  stopped. 

Use  of  the  linearized  dynamics  solution  below  peak  dynamic  pressure,  when 
appropriate,  also  can  save  considerable  time. 

4.  Amount  of  Output 

The  output  is  limited  to  150  lines,  which  can  be  regulated  by  program  con- 
trols on  the  interval  of  printout.  The  printout  interval  controls  include 
successive  output  points  in  integrated  stagnation  point  heating,  altitude, 
and  velocity. 
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MARS  MODEL  ATMOSPHERES 


Inputs 

] JPL 

NASA 

Program  Name 

Units 

G 

H 

I 

j 

K 

1 

2 

3 

! RSL 

ft 

11.  E6 

11. E6 

11.  E6 

11. E6 

11.  E6 

11.  E6 

11. E6 

11.  E6 

GSL 

ft/ sec2 

12.  3 

12.  3 

12.  3 

12.  3 

12.  3 

12.  3 

12.  3 

12 

RH0SL 

slug/ft3 

4.  21E-5 

4.  21E-E 

5.9E-5 

1.  042E-4 

9.  54E-5 

8.  97E-5 

6.  94E-5 

4.  19  E-5 

TSL 

°K 

260 

260 

230 

210 

230 

300 

250 

200 

TST 

°K 

130 

230 

180 

130 

230 

260 

180 

100 

PTH 

lb/ft2 

1.  E-20 

1,  E-20 

1.  E-20 

1.  E-20 

1.  E-20 

6,  636E-2 

1.454E-3 

4.939-E9 

FALR* 

- 

0.935 

0.935 

0.952 

0.982 

0 

0.987 

1.  032 

1.  053 

LTH 

°K/ft 

1,  E-20 

1.  E-20 

1.  E-20 

1,  E-20 

1.  E-20 

6.  096E-4 

6.  096E-4 

6.  096E-4 

XN 

- 

0.  001 

0.  001 

0.245 

0.765 

0.765 

0.951 

0.892 

0.512 

X0 

~ 

0 

0 

0 

0 

0 

0 

0 

0 

XC 

- 

0.  647 

0.  647 

. 0.433 

0. 105 

0. 105 

0.049 

0. 108 

0.488 

XA 

- 

0.352 

0.352 

0.322 

0. 13 

0. 13 

0 

0 

0 

*Note  Values  of  FALR  have  been  adjusted  to  account  for  the  difference  between  the 
Cp  specified  for  the  atmosphere  model  and  the  Cp  computed  in  the  program 
to  provide  the  intended  temperature  variation  (see  Equations  (3)  and  (6). 


5.  Vehicle  Data 


a.  Mass  and  diameter  are  the  key  inputs  which  affect  the  trajectory, 
coefficient  calculation,  heating,  and  scaling. 

b.  The  radii  of  gyration  and  center  of  gravity,  which  affect  the  dy- 
mamics,  are  input  as  fractions  of  the  diameter  to  simplify  scaling. 

If  these  ratios  can  be  assumed  independent  of  size,  only  the  mass  and 
diameter  need  be  re  specified  when  the  vehicle  size  is  changed. 

6.  Aerodynamic  Coefficients 


a.  Coefficients  which  are  functions  of  angle  of  attack  are  specified 
only  from  0 to  180  degrees,  corresponding  to  the  angles  of  attack  lis- 
ted in  TABAL  (up  to  19  values).  The  program  computes  values  of  co- 
efficients between  180  and  360  degrees. 

b.  When  MANDAL  table  is  specified,  tables  of  all  coefficients  based 

on  TABAL  must  be  specified  for  each  Mach  number  in  MANDAL  (maximum 
5 values).  At  Mach  numbers  smaller  (or  larger)  than  those  listed  in 
MANDAL,  the  program  uses  coefficients  corresponding  to  the  smal- 
lest (or  largest)  Mach  number  specified. 

c.  An  option  is  provided  to  input  CMFA  in  place  of  XCPFA.  To  use 
this  option,  CMIN  is  set  =1.0  and  specify  CMC0D.  With  either  CMFA 
or  XCPFA  input,  the  program  computes  the  correct  pitching  moment 
for  the  input  center- of- gravity  location  XCG0D. 

d.  For  constant  coefficients  (invariant  with  Mach  number)  MANDAL 
is  set  = 0,  in  which  case  the  program  uses  the  first  table  of  coefficients 
(lowest  Mach  number). 

e.  Computation  of  the  dynamic  motions  can  be  switched  to  the  linear 
solution  at  peak  dynamic  pressure  by  specifying  ALPCR  larger  than 
the  angle  of  attack  envelope  at  that  time. 

f.  Coefficients  which  are  functions  of  Mach  number  only  are  specified 
for  each  Mach  number  listed  in  M$NLY  (maximum  10  values).  These 
are  used  by  the  program  in  the  linear  equations  of  motion,  and  to 
compute  D/W,  M/ C^A,  and  frequency, 

g.  CMAFM  must  be  specified  if  printout  is  desired  in  the  FREQ 
column. 
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h.  CDFM  must  always  be  specified  (will  switch  to  CDR<#P  at  peak 
dynamic  pressure  otherwise). 

7.  Entry  Conditions 


a.  ZE;  VE,  and  GAME  must  always  be  specified. 

b.  As  the  integration  interval  is  determined  by  accuracy  limits,  large 
angular  rates  may  lead  to  excessive  computational  time.  To  prevent 
usage  of  excessive  computer  time,  a stop  exists  in  the  program, 
whereby  a requirement  for  an  integrating  interval  less  than  a pre- 
scribed value  stops  the  calculations  and  a message  is  printed  out 
DELTAT  TOO  SMALL..  A possible  source  of  this  problem  are  inputs 
which  create  very  large  angular  rates. 

8.  Particle  Trajectories 

Trajectories  which  do  not  allow  for  any  effects  of  angle  of  attack  can 
be  computed  by  using  the  MANDAL  coefficient  table  and  specifying 
ALPHAE  = 0.  0 and  ALPCR  = 0.  0. 

The  MANDAL  table  must  have  data  at  a = 0 and  for  at  least  one  other  non- 
zero angle  of  attack.  Tabular  input  for  CDFM  is  required  if  M/CDA 
and  D/W  printout  is  desired. 

9.  Heating  Data 

a.  Velocity  gradient  (VGFDR)  and  shock  standoff  distance  (DEL?)RC) 
at  the  stagnation  point  are  input  (wind  tunnel  data  or  theory)  as  functions 
of  the  stagnation  point  density  ratio  (TABDR).  Figures  7 and  8 obtained 
from  Vinokur's^  results  show  how  these  parameters  vary  theoretically 
with  nose  shape;  comparison  with  the  metln>ds  of  References  10  and  11  j 
are  also  shown.  Correlation  of  Vinokur's  results  with  those  of  Traugott 

10  9 

and  Kaattarixu  is  shown  in  Figure  9,  wherein  all  of  Vinokur^  results 

are  seen  to  compress  into  a single  correlation  curve  at  low  density 

ratios  (which  agrees  with  Kaattari's^  recommended  correlation). 

b.  The  stagnation  point  quantities  VGFDR  and  DEL0RC  are  required 
to  predict  the  convective  and  radiative  heating.  Sufficient  information 
is  provided  to  estimate  these  quantities  using  Figures  6 and  7.  The 
suggested  use  of  these  curves  for  vehicles  with  various  nose  shapes 
is_depicted  in  Figure  10. 

c.  SS0D  defines  the  approximate  sonic  point  for  turbulent  heating 
calculation,  and  is  determined  by  the  nose  shape  of  the  vehicle. 
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Figure  8 STAGNATION  POINT  SHOCK  STANDOFF  DISTANCE  WITH  VARYING 
BLUNTNESS  AND  DENSITY  RATIO 


A 


Sharp  Corner  on  Spherial  Cap. 
Define  6*  ,as  sonic  point  flow  angle, 


d.  REYT  specifies  the  Reynolds  number  (based  on  S*)  at  which  trans- 
ition occurs  at  the  sonic  point.  The  Reynolds  number  computation  is 
based  on  the  viscosity-temperature  dependency  of  Jos^  for  nitrogen 
and  is  shown  in  Figure  11. 

e.  IRNE  and  KNE  are  nonequilibrium  radiation  heating  parameters, 
preset  at  typical  air  values.  Additional  data  for  N2-CO2  mixtures 
is  given  in  Reference  5. 

f.  DIRNE  specifies  the  nonequilibrium  radiation  intensity  as  a tab- 
ular function  of  the  velocity  (YIRNE).  When  DIRNE  is  used,  IRNE 
must  be  specified  as  equal  to  zero. 

10.  Tabular  Inputs  of  Coefficients 

Since  much  of  the  input  data  for  Program  1880  consists  of  one-  and  two- 
dimensional  tables,  time  and  effort  can  be  saved  by  understanding  the  fol- 
lowing facts. 

All  independent  variable  tables  must  be  specified  in  monotonic  ascending 
order. 

The  total  range  of  the  variable  of  interest  should  be  covered  by  the  inde- 
pendent variable  table.  If  the  variable  is  smaller  than  the  first  entry  of 
the  array,  then  the  table  lookup  is  done  by  a linear  extrapolation.  If  the 
independent  variable  is  greater  than  or  equal  to  the  last  entry  m the  array, 
then  either  an  incorrect  answer,  a loop,  or  an  unexpected  stop  is  the  re- 
sult. The  only  exception  to  this  m Program  1880  is  in  the  calculation  of 
coefficients  of  a function  of  angle  of  attack,  since  for  angles  between  180 
and  360  degrees  the  coefficient  is  computed  by  a change  of  variable  and  a 
simple  transformation  of  the  coefficient  in  the  range  between  0 and  180. 
Hence  the  independent  variable  table  TABAL  need  be  specified  only  to  the 
value  180. 

Constant  functions  must  be  described  for  the  table  lookup  by  at  least  two 
different  values  of  the  independent  variable. 

The  only  (optional)  exception  to  the  above  rule^  applied  to  tables  of  coeffi- 
cients as  a function  of  angle  of  attack  and  Mach  number,  and  in  the  special 
case  where  there  is  no  Mach  number  dependence  for  the  coefficient,  is 
described  below. 
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Figure  11  VISCOSITY -TEMPERATURE  MODEL 


The  tables  of  aerodynamic  coefficients  have  as  independent  variable  tables 
TABAL  for  angle- of- attack  dependence  and  MANDAL  for  Mach-number 
dependence.  The  coefficient  tables  are  matrices  of  maximum  size  19  rows 
and  5 columns  (or  19  angles  of  attack  and  5 Mach  numbers).  The  program 
has  assumed  that  for  Mach  numbers  less  than  the  first  (smallest)  Mach 
number  in  the  array  MANDAL,  the  coefficient  is  equal  to  its  value  at  the 
angle  of  attack  and  the  smallest  Mach  number  in  MANDAL.  Similarly,  for 
Mach  numbers  greater  than  the  largest  entry  in  MANDAL,  the  coefficient 
is  assumed  to  have  the  value  of  the  angle  of  attack  and  the  largest  Mach 
number  in  the  array  MANDAL.  Thus  the  Mach  number  dependence  of  the 
coefficient  is  treated  as  piece-meal  constant  off  the  ends  of  the  table. 

The  coefficient  matrices  may  be  regarded  as  of  the  form  a^,  where  i re- 
ferences the  angle- of- attack  value  and  j the  Mach  number.  The  coefficient 
is  specified  on  a punched  card  as,  for  example, 

CNF  A (1,  1)  = 1.,  2.,  3.,  4.,  CNF  A (1,  2)  = 4.,  3.,  2.,  1. 

The  double  subscript  specifies  that  the  array  is  two-dimensional  and  that 
the  left-most  index  varies  the  most  rapidly.  Hence,  given  a starting 
location  such  as  CNFA  (1,  1),  the  program  loads  information  into  succes- 
sive storage  locations  (columnwise,  in  matrix  notation),  until  a new 
starting  location  is  specified.  Since  the  maximum  dimensions  of  the 
array  are  referenced  for  loading,  here  (19,  5),  the  above  example  could 
not  be  rewritten  as 

CNFA  (1,  1)  = 1.,  2.,  3.,  4.,  4.,  3.,  2.,  1.  


All  columns  of  the  matrix  do  not  have  to  be  filled,  but  there  must  be  a 
one-to-one  correspondence  between  columns  and  entries  in  MANDAL. 

It  was  stated  above  that  for  constant  functions  at  least  two  different  values 
of  the  independent  variable  must  be  specified  with  the  corresponding  (equal) 
values  of  the  dependent  variable.  The  single  exception  to  this  rule  in  Pro- 
gram 1880  is  for  aerodynamic  coefficients  which  are  dependent  on  angle  of 
attack  and  independent  of  Mach  number.  For  this  case,  two  different  val- 
ues of  Mach  number  may  be  specified,  and  the  first  two  columns  of  the  co- 
efficient matrix  made  identical  (a^  l = 2*  ^ = ^ ^)*  How- 

ever, the  same  effect  may  be  achieved  by  making  all  entries  of  MANDAL 
= 0 and  specifying  only  the  first  column  of  the  coefficient  matrix.  This 
latter  maybe  done  either  by  the  CNFA  (1,  1)  a^  ^ 
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C*  OUTPUT  DEFINITIONS 


External 

Name 

Internal 

Name 

Symbol 

Parameter 

Units 

ALBAR 

ALENV 

a 

Total  angle  of  attack  envelope 
{max.  envelope,  interpolated 
linearly  between  peak  ampli- 
tudes). 

degrees 

ATM 

ATM0S 

-- 

Atmosphere  identification. 

— 

CASE 

CAS 

— 

Case  identification. 

— 

D 

D 

d 

Diameter  of  vehicle  (reference 
length). 

feet 

DATE 

DATE 

Date  identification. 

D/W 

X0W 

D/W 

Zero  angle -of- attack  decelera- 
tion. 

Earth  g 

DYN-PR 

QDY 

Q 

Dynamic  pressure. 

lb /ft2 

FREQ 

FRNAT 

f 

Natural  undamped  frequency  of 
the  vehicle  based  on  CMAFM 
input . 

cps 

GAMMA 

GAM 

y 

Local  flight  path  angle. 

degrees 

HD/HS 

HDHS 

Ratio  of  dissociation  enthalpy  to 
total  gas  enthalpy. 

--- 

HMRTQ5 

HRT 

hm/rt0 

Stagnation  enthalpy. 

— 

IX 

ZIX 

Tx 

Moment  of  inertia  about  roll  ax- 
is . 

slug /ft2 

IY 

ZIY 

JY 

Moment  of  inertia  about  pitch 
and  yaw  axes. 

slub/ft^ 

MACH 

XMCH 

M 

Flight  Mach  number . 

M/CDA 

EM0CDA 

m/CDA 

Ballistic  coefficient. 

slug/ft2 

MEM0 

MEM0 

Memo  identification. 
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External  Internal 

Symbol 

Parameter 

Units 

Name 

Name 

N/W 

EN0  W 

' N/W 

Normal  acceleration  at  angle- 
of- attack  value. 

Earth  g 

PE 

PI 

P 

e 

Spin  rate  at  entry. 

rad/ sec 

QE 

QI 

Pitch  rate  at  entry. 

rad / sec 

QI 

QI* 

V 

Radiative  heating  contribution 
of  each  specie. 

Btu/ft^-  sec 

QR 

QSUM 

<*R 

Same  as  QRE  (below). 

QRE 

QR 

Zero  angle- of- attack  equilibri- 
um radiation  heating  rate  at  the 
stagnation  point. 

Btu/ft^-sec 

QRNE 

QRNE 

^RAD 

Corrected  value  of  QRE  account 
ing  for  nonequilibrium  effects. 

- Btu/ft^-sec 

QS 

QS 

% 

Zero  angle- of- attack  stagnation  Btu/ft^-sec 
point  convective  heating  rate. 

QSTAR 

QT 

q* 

Zero  angle- of- attack  convective  Btu/ft^-sec 
heating  rate  at  the  sonic  point 
(laminar  before  transition,  tur- 
bulent after  transition). 

RE 

RI 

Re 

Yaw  rate  at  entry. 

rad/ sec 

REY 

RTX 

— 

Free  stream  Reynold's  number 
based  on  vehicle  diameter. 

— 

RH0A 

R0 

P 

a 

Ambient  density. 

slug/ft^ 

RH0S/RH0 

RH0ST 

PjPa 

Normal  shock  density  ratio  at 
stagnation  point. 

— 

TIME 

TIME 

t 

Flight  time  measured  from  en- 
try. 

seconds 

TS 

T 

TS 

Stagnation  temperature. 

°K 

V 

V 

Flight  velocity. 

ft/  sec 
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External 

Name 

Internal 

Name 

Symbol 

Parameter 

Units 

VEHICL 

VEHICL 

Case  identification 

— 

X 

X 

X 

Specie  Concentration 

moles 

XCG/D 

XCG0D 

xcg/d 

Center- of- gravity  location  as  a 
fraction  of  vehicle  diameter 

--- 

Z 

Z 

z 

Altitude 

feet 

ZS 

Z 

Compressibility  factor;  number 
moles  per  initial  mole  cold  gas 

ZST 

ZST 

2ST 

Altitude  of  the  base  of  the  strato 
sphere 

- feet 

ZTH 

ZTH 

^TH 

l 

Altitude  at  the  base  of  the  ther- 
mosphere 

feet 

D.  SAMPLE  PROBLEM 

1.  Statement  of  Problem  --  Determine  the  angle -of- attack  envelope  and 
heating  history  for  a Mars  entry  of  a blunt  cone  configuration.  The  vehicle 
parameters  entry  conditions,  atmosphere,  and  planet  data  are  to  be  pre- 
scribed as  input.  An  orbital  entry  was  chosen,  for  which  the  entry  velo- 
city is  low. 

Two  trajectories  were  computed  to  provide  both  the  heating  and  load  data, 
for  a typical  entry  to  Mars  following  the  orbit. 

2.  Computer  Input  Forms  --  The  computer  input  forms  for  the  two  sam- 
ple cases  containing  all  the  necessary  input  data  to  be  keypunched  are 
shown  on  the  following  pages.  All  of  the  input  on  these  forms  are 
written  with  decimals,  and  everything  shown  on  the  forms  are  keypunched. 
Unused  copies  of  the  input  forms  are  provided  on  pages  in  this  report, 
from  which  the  program  user  can  make  copies  and  use  for  further  cases. 

3.  Output  — The  output  lists  the  cards  read  in  and  should  be  checked  to 
ensure  that  the  data  have  been  keypunched  correctly.  The  trajectory 
output  format  lists  key  data  across  the  top  of  the  page.  The  output  of 
the  two  cases  are  given  on  pages  following  the  input  pages. 
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The  trajectory  of  Case  1 indicates  a peak  deceleration  of  25.8  g (Earth  g), 
negligible  radiation,  an  impact  time  of  301.28  seconds,  and  a subsonic 
impact.  The  time  of  transition  was  189.97  seconds  at  which  time  the  free 
stream  Reynold's  number  was  2.  1E+06,  occurring  at  peak  laminar  heating, 
The  data  requested  at  Mach  1.2  are  given  at  the  end  of  the  output  as  well 
as  integrals  of  the  heat  pulses. 


The  trajectory  for  Case  2,  which  has  the  smaller  entry  angle  and  is  the 
heat  shield  design  trajectory,  has  a peak  deceleration  of  6.  7 g and  an 
impact  time  of  473  seconds.  Transition  did  not  occur  on  this  trajectory. 
Additional  messages  are  printed  out  for  this  case  indicating  (no  valid 
solutions  in  zones)  which  refers  to  points  along  the  trajectory  where  no 
solutions  were  obtained  for  the  equilibrium  gas  composition.  The  reason 
for  this  occurrence  is  because  of  the  nature  of  the  approximate  solution 
and  requirements  that  the  solution,  in  order  to  be  valid,  satisfy  physical 
criteria. 

E.  DIAGNOSTICS 

A number  of  messages  are  given  m the  printout  reflecting  the  following  program 
diagnostics. 

1.  N0  W0BBLES 

The  angle  of  attack  did  not  oscillate,  and  the  envelope  value  ALBAR  is  equal 
to  the  current  angle  of  atack. 

2.  DELTAT  T00  SMALL. 

The  integration  interval  required  decreased  to  less  than  the  input  (preset) 
minimum  allowable  value. 

3.  N0  VALID  S0LUTI0N 

The  equilibrium  gas  dynamics  (1883)  solution  was  not  able  to  obtain  a solution 
with  positive  concentrations  for  all  the  species  satisfying  the  elemental  and 
charge  conservation  relationships.  In  this  case  the  data  is  linearly  inter- 
polated between  the  last  and  the  next  point  for  which  a solution  is  found. 

4.  N0T  C0N VERGED  IN  30  ITERATIONS 

The  equilibrium  gas  dynamics  (1883)  solution  was  unable  to  converge  within 
30  iterations  to  within  1 percent  on  the  enthalpy;  use  the  last  value  found. 
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RAO  2-0»B« 
9 63 


DIGITAL  COMPUTER  INPUT 

MEMO  NO 

SECTION  NO 

CONTINUATION  SHEET 

REQUEST  FORM 

PAGE  2 OF  6 PAGES 

CMAFM 

CMQFM 

DEL0RC  = 

DIRNE 

DNBND 

MONEY 

TAB  DR 

UPBND 

VGFDR 

VIRNE 

CMFA  { 1,  1)- 


54  ^ 
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AO  2-0*04 
5-63 

DIGITAL  COMPUTER  INPUT 

PROBLEM  NO 

MEMO  NO 

SECTION  NO 

CONTINUATION  SHEET 

REQUEST  FORM 

1880 

PAGE  4 OF  6 PAGES 

CMQF A(  1,  4)  = 


CMQFA(  1,  5)  = 


CNF  A ( 1,  1)  = 


CNF  A (1,2)  = 


CNF  A (1,  3)  = 


CNF  A (1,4)  = 


CNF  A {1,  5)  = 
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TABAL 


DIGITAL  COMPUTER  INPUT  PROBLEM  NO  1880 | programmer  -p.  Gillespie 


REQUEST  FORM  | title,  TRAJECTORY  DYNAMICS  PROGRAM 


MEMO  NO 

SECTION  NO 

i 

WORK  ORDER  NO  | 

L UA  J 

{E240  USE  ONLY) 

REQUESTED  BY  j 

2 

EXT  | 

EST  TIME 

PL -167 

K420 

W305-050-0005  ' 

1 

P.  Levine 

2996  j 

PAGE  JOF^  P*GES 

$INPUT 


DATE  = 5.11 

, MEM<?= 

167.  , CASE 

ALAM 

, IRNE 

ALPCR 

- 

, KNE 

ALPHAE 

= 

142.  3 

LS 

AR 

= 

, LTH 

ATRB 

- 

, MASS 

BLAM 

= 

, MVE 

BTRB 

= 

, NPTST 

CDR0P 

- 

0.0 

, PE 

CMC0D 

- 

0.  27 

, PTH 

CMIN 

- 

1.0 

, PTMAC 

D 

- 

15.0 

, QDYPT 

delmac 

- 

, QE 

DELMT 

= 

, QSTST 

DELTAT 

= 

j RE 

FALR 

= 

1.  11367 

REYT 

GAME 

= 

17.5 

RGX 

GSL 

= 

12.  3 

j RGY 

GTST 

= 

RH0SL 

IPHEAT 

S 

j RSL 

IPRINT 

SS0D 

IPRQRD 

_ 

_3  THF 

MANDAL 

0.  5 

> 1.  5 

CDFM 

1.  0 

, 1. 0 

1 ^ 

, 1. 63 

CLAFM 

- 

-0.  675 

, -0.  675 

-1.212 

, -1.212 

1. 

# ATMdS= 

3.8  , VEHICL=  60. 

1 

TSL 

200.0 

= 

9 

TST 

- 

100.0 

.1 

TST0P 

- 

» 

1.  OE-20  , 

TZER0 

= 

= 

57.6 

UFDN 

= 

s 

1.  0 

VE 

- 

15,  200.0 

- 

VST0PQ 

s 

= 

1.  045  , 

VTST 

— 

- 

1.  3843E- 11. 

XA 

= 

o 

o 

= 

1.2  , 

XC 

= 

0.  999 

XCG0D 

- 

0.  25 

— 

0.0 

XKT 

= 

- 

XN 

= 

0.  001 

= 

1.  77 

X0 

- 

0.  0 

- 

XPRIN 

= 

= 

0.  30 

Z 

- 

- 

0.  22 

ZE 

- 

8.  0E5 

- 

2. 56E-5  , 

ZST0P 

= 

s 

11.  1089E6, 

ZTST 

- 

* 0.  57 


3.0 

. _9.0 

, 19.  0 , 

1.  52 

, 1.  55 

_» L_59 > 

, 

-1.231 

, -1.227 

, -1.  163 
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Rt-ORDER  fe,  Ci  b ^ H~  i 


PROBLE1 

DIGITAL  COMPUTER  INPUT 

M HO  MEMO  NO 

SECTION  1 

<o 

1 CONTINUATION  SHEET 

REQUEST  FORM 

1 1880  j 

| PAGE 

2 OF  6 PAGES 

CMAFM 

-0.  183 

-0. 183 

* -0.  12 

-0.  115 

, -0.  138 

-0. 138 

-0. 138 

CMQFM 

= 

-0.  392 

-0.  392 

, -0.  392 

-0.  392 

, -0.392 

-0. 392 

-0. 392 

DEL0RC 

- 

0.  0192 

0.0104 

, 0.0054 

DIRNE 

— 

DNBND 

- 

» 

» 

MtfNLY 

= 

0.0 

0.5 

, 1.5 

_» 

3.0  - 

, 9.0 

19.0 

100. 

» 

TABDR 

= 

6.  25 

12.  5 

, 25.0 

„» 

UPBND 

— 

f 

VGFDR 

= 

3.  90 

2.  70 

o 

CO 

" 

VIRNE 

= 

CM  FA  ( 1, 

1)=  _ 

o 

o 

-0.032 

, --0.  062 

-0.083 

, -0.095 

-0. 095  , 

-0.084 

, -0.064 

-0.043 

, -0.024 

-0.010  , 

-0.002 

, -0.  0003 

-0.  0003 

. -0.0002 

-0.  0002  , 

-0.  0001 

, -0.0001 

-0.0 

DIGITAL  COMPUTER  INPUT 
REQUEST  FORM 


PRODL.EH  HO 

SECTION  NO 

1880 

■fl 

CONTINUATION  SHEET 
PACE  3 OF  6 PAGES 


cmfaU,  2)= 

0.  0 

_ -o.ozi 

-0J40 

-0.  053 

-0.057 

-0.-57  , 

-0.050 

-0.038 

-0.  026 

-0.014  0 

-0.006  , 

-0.  001 

-0.  0002 

-0.0002 

-0.  0001 

-0.0001  , 

i 

o 

o 

o 

o 

-0.  0001 

-0.0 

cmfaU,  3)= 

0.  0 

-0.020 

-0.  040 

-0.053 

-0.057 

-0.057  , 

-0.050 

-0. 038 

-0.  026 

o 

o 

£ 

-0.  006  , 

-0.001 

-0. 0002 

-0.  0002 

-0.  0001 

-0.0001  , 

-0.  0001 

-0.0001 

-0.0 

CMFA  ( 4)=  _ 

0.  0 

-0.024 

-0,058 

-0. 077 

-0. 089 

-0.089  , 

-0.  079 

-0.060 

-0. 041 

-0. 022 

-0.009  , 

-0. 002 

-0.  0003 

-0.  0003 

-0. 0002 

-0.0002  , 

-0.0001 

-0.  0001 

-0.0 

CMFaU.  5>=  _ 

0.0 

-0.024 

-0.  058 

-0.077 

-0.089 

-0.089  , 

-0.079 

-0.  060 

-0.  041 

-0.  022 

-0.009  , 

-0.002 

3 

-0.  0003 

-0.  0003 

-0.0002 

-0.0002  , 

-0.0001 

* 

-0.  0001 

-0.0  * 

CMQIA  (*»  1}“  _ 

-0. 392  , 

-0.386 

-0.369 

-0.340 

-0.301 

-0.253  , 

-0.  197 

1 

© 

i— * 

O' 

-0.  131 

-0. 102 

-0.  150  , 

-0.200 

t 

-0. 254 

-0.  326 

-0.387 

-0.437  , 

-0.474 

t 

-0.  497 

-0.  505 

CMQFAl1*  2)=  . 

-0. 392  , 

-0.  386 

-0.  369 

-0.  340 

-0.  301  ' 

-0.253  , 

-0. 197 

f 

-0.  161 

-O'.  131 

- -0.  102 

-0.  150  , 

-0.200 

t 

-0. 254 

-0.  326 

-0.387 

-0.437  , 

-0. 474 

f 

-0. 497 

-0. 505 

CMQFA  (x»  3)=  . 

-0.392  , 

-0. 386  " 

-0. 369 

-0.  340 

-0.301 

-0.  253  , 

-0. 197 

-0.  161 

-0.  131 

.-0.  102 

-0. 150  , 

-0. 200 

-0.  254 

-0.  326 

-0. 387  v 

DIGITAL  COMPUTER  INPUT 
REQUEST  FORM 


PROBLEM  NO 


1880 


| PROGRAMMER  Q . GjlleSpje 


itle  Trajectory  Dynamics  Program 


SECTION  NO 

WORK  ORDER  NO 

(E240  USE  ONLY) 

REQUESTED  BY 

EXT 

EST  TIME 

K420 

W305-050-0005 

P.  Levine 

2996 

PAGE1  OF  ^ PAGES 

MEMO  NO 

|PL-167 


$INPUT 


DATE=  5.11  MEM0= 

167.  , CASE 

= 2.  , ATM0S= 

3.8  , 

VEHICLx 

60 

ALAM 

9 

IRNE 

TSL 

= 

275.0 

ALPCR  x 

KNE 

= t 

TST 

= 

200.0 

ALPHAE  = 

9 

LS 

= 

TST0P 

- 

AR 

LTH 

= t 

TZER0 

- 

ATRB  x 

MASS 

= 

UPDN 

s 

BLAM 

9 

MVE 

= 

VE 

= 

14000.0 

, 

BTRB 

9 

NPTST 

= 

VST0PQ= 

CDROP  = 

PE 

- 

VTST 

= 

CMCOD  = 

9 

PTH 

= . 525E-3  , 

XA 

= 

> 

CMIN 

9 

PTMAC 

= 

XC 

X 

0.2 

D 

9 

QDYPT 

- 

XCG0D 

X 

9 

DELMAC  = 

QE 

= 

XKT 

- 

9 

DELMT  = 

QSTST 

— 

XN 

= 

0.8 

DELTAT  x 

RE 

- 

X0 

= 

FALR  x 0.994 

REYT 

= 

XPRIN 

- 

GAME  = -13. 

RGX 

= 

ZCG0D 

= 

GSL 

RGY 

ZE 

= 

GTST  x 

RH0SL 

= 0.  132E-4  * 

ZST0P 

- 

IPHEAT  = 

RSL 

ZTST 

IPRINT  = 

SS0D 

- 

IPRQRD  = 

THF 

s f 
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-O.OOOOOODOE-19, 

—0.000000006-1-9,- 

-0. OOOOOOOOE— 19, 

-O.OOOOOOOOE-19, 

■— O^OOOOOOOOE— 4-9, — 
— O.OOOOOOODE— 1 9. 
-0^)00000006-19,— 
— O.OOOOOOODE— I9» 
„0 . 000000006.09,— 
-O.OOOOOOOOE-19, 
—O—O 00000006—1 9, 
-O.OOOOOOOOE-19, 
—O^OOOOOOOOE-IO,— 
-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 
— OtOOOOOOOOE — 19, 
-O.OOOOOOOOE-19, 
-O.OOOOOOOOE-19, 
-O.OOOOOOOOE-19, 
—0^000000006—19, 
-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 

-O.OOOOOOOOE-19, 
-—0—4)00000006— 49, 
-O.OOOOOOOOE-19, 


O.OOOOOOOOE-19, 0.000000006-19,- 

— O.OOOOOOOOE— 19,  -O.OOOOOOOOE-19, 

O.OOOOOOOOE-19, 0.000000006-19,- 

— O.OOOOOOOOE— 19,  -O.OOOOOOOOE-19, 

—O.OOOOOOOOE— 19,  -0 .OOOOOOOOE— 19, 

O.OOOOOOOOE-19, O-irOOOOOOOOE— 19, 

-O.OOOOOOOOE-19,  -O.OOOOOOOOE-19, 

-O.OOOOOOOOE-19,  -O.OOOOOOOOE-19, 

-O.OOOOOOOOE-19,  -O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 
— O^OOOOOOOE-19^- 
— O.OOOOOOOOE— 19, 


-O.OOOOOOOOE-19, 

-O.OOOOOOOOE-19, 


04000000006-19^- 

— O.OOOOOOOOE— 19, 

O.O0OOOOOOE-19.- 

—qI OOOOOOOOE— 19, 

0^000000006-19,- 

— O.OOOOOOOOE— 19, 
— O^JOOOOOOOE— 19r" 
-O.OOOOOOOOE-19, 

O.OOOOOOOOE-19^- 

—0.000000006—19, 

O.0OOOOOOOE-19r- 

—Oi OOOOOOOOE— 19, 

-0^  00 00000 0£—19r- 

-O.OOOOOOOOE-19, 
— -O.OOOOOOOOE — 19^- 
— O.OOOOOOOOE— 19, 

0^000000006— 19-r- 

—0. OOOOOOOOE— 19, 

0;000000006-19r- 

-OiOOOOOOOOE-19, 
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=07000000006-197 

-O. O OOOOOOO E— 19* 

-0700003000S-19, 

-0. OOOOOOOOE- 19, 

=07000000006-1 97 

-0. OOOOOOOOE- 19, 

—07000000006— 19," 

—0 .OOOOOOOOE— 19, 

—0. OOOOOOOOE— 197 

-0.000000006-19, 

— ol OOOOOOOOE— 19^ 

—0. OOOOOOOOE— 19, 

-olooooooooE-Ioi 

-OIOOOOOOOOE-19I 

-orOOOOOOOOE-l~9! 

— ol OOOOOOOOE— 19^ 

—0 1 OOOOOOOOE— 19, 

—ol OOOOOOOOE— 19, 

-oIooooaoooE-nl 

— <£  00000  000 E—l 9 « 

" — ol OOOOOOOOE— 19 i 

KANDAL 

= 

0.50000000E  00* 

0.15000000E  01, 

0.30000000E  01, 

0.90000000E  01, 

0. 190000006  02, 

HONLY 

= 

0. OOOOOOOOE— 38  * 

0 . 50000000E  00, 

0.15000000E  01, 

0.30000000E  01, 

0. 90000 0006  oi. 

O.IMOQOOOE  01, 

0 . 16300000E  Oli 

-olooooooooE-ioj 

-0I00000O00E-19) 

-olooooooooe-Ioj 

VE 

0.15200000E  05, 

GAME 

-0.17500000E  02, 

ZE 

- 

0. OOOOOOOOE  06, 

- 

MASS 

0.57600000E  02, 

TSTOP 

■ 

O.IOOOOOOOE  04, 

ZSTOP 

O.OOOOOOOOE-38, 

FAIR 

0.1U36700E  01, 

LTH 

= 

0. 10000000E— 19, 

RSL 

0.11108900E  08, 

GSL 

0.12300000E  02, 

XH 

* 

0.10000000E-02, 

XC 

0.99900000E  00, 

TSL 

= 

0.20000000E  03, 

TST 

O.IOOOOOOOE  03, 

PTH 

0. 13843000E— 10, 

8H0SL 

= 

0.2560 0000E-04, 

z 

OEITAT 

= 

O.IOOOOOOOE— 01, 

UPBNO 

* 

0.10000000F-01, 

0. 100000006-04, 

O.IOOOOOOOE  00, 

o.ioaaaoooE-02, 

0. 10000000E-02, 

- 

0. 10000000E-04, 

0.10000000E-04i 

o.ioooooooi-64. 

UPDN 

= 

0.20000000E  00, 

* 

XPRIN 

= 

O.IOOOOOOOE  01, 

■ 

0^000000 00 6-38, 

0.18I00O00E  00. 

O.OZOOOOOOE-Ol, 

0.36000000E-01, 

0.41000000E— Ol-, 

0. 1 1500000E  00, 

0.360000056—01, 

0.18000000E-01, 

O. 10000 0008— 00, 

0.1 19000006  00, 

0.43000000E-— 01, 

0. 12000000E— 01, 

0.1 7400000E— 00, 

0.12100000E  00, 

-0.54000000E-01, 

O.OOOOOOOOE-3S, 

.-0,1 93000006—00, 

0. 910000006-01, 

— -0.480000006—01, 


-0-.530000006— Ol, — 
0 . 1670D000E  00, 
-O.  520000008—01 
0.26000000E—01, 

— OtSOOOOOOOE— Ol-r— 
0.96000000E-01, 


— 0.4-14 00000 £—00, 

0.13900000E  00, 

— -0.50000  00  OE— 01-, 

0. L4000000E— 01, 

— -0^10700000 E — 00, 

0.74000000E— 01, 


0.90000000E— 02,  O.OOOOOOOOE-38, 

-0,103000008-00, 0.152000006—00, — 

0.930000006-01,  0.&9000 OOOE-Ol, 

-0^410000006-01 , 0.370000006-01,- 

0 . OOOOOOOOE— 36 , O.OOOOOOOOE-3B, 

0.910000006-01,  0.70000000E— 01, 

-0^80000008-01, 0,410000006—01, — 

0 .OOOOOOOOE— 38 , 0-60000000E-01, 

-0 .20400000 E—OO, 0.18 600 0006-00^- 

0.70000000E— 01,  0.58000000E— 01, 

-o^4iooooeoe-&i, o^oooooooe-o-It— 


-0.000000006-38, 
— 0^22  000006-00^- 
0.51000000E-01, 
—0^00000006-0  It— 
0. OOOOOOOOE— 38, 
—0^55000006  00, 
0.53000000E-01, 


0'.00000000£-38, 
— oVl 24000006-0 Oi 
OI430000Q0E— 01, 
— 0^25000000£-01i 
_0^40000000E— Oli 

0.45000 OOOE-Ol, 


0 .60000000E— 01,  0. 13000000E  00, 

— 0.188000006—00, 4>*45600000E-O0i 

0 .58000000E— 01,  " 0^56000000E-Oi , 
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0.50000000E  02, 
0.1000000GE  OB, 
0. 1 5000000F  OB, 

0.60000000E  02 
0.11 0000006  03 
0 . 160000006  03 

0.70000000E  02 
0. 1 2000000E  03 
0. 17000000E  03 

0 .80000000E  02,  “ 
0. 13000000E  03, 
0.18000000E  03, 

0.90000000E-02, 
0.19000000E  03, 

CLAFM  = 

-0.675000006  00, 
-0.12120000E  01, 

-0.675000006  00 
-0.12120000E  01 

-0.12310000E  01 
-O.OOOOOOOOE-19 

-0.12270000E  01,- 
—0 .0000000 OE— 19, 

0.11630000E-01,-'- 

—0. OOOODOOOE— 19, 

CHQFH  * 

—0.392000008  00, 
-0.39200000E  00, - 

-0.39200000E  00 
— 0.39200000E  00 

— 0.39200 OOOE  00 
-O.OOOOOOOOE-19 

-0.39200000E  00, 

— O.OOOOOOOOE-19, 

—0.392000006  00, 
— _0.  00000 OOOE— 19, 

-CMAFM  -= 

-0.1830COOOE  00,  * — 
-0.13800000E  00, 

0.18300000E  00 

-D.13800000E  00 

— 0. 12000000E- 00 
-O.OOOOOOOOE-19 

-0  ,-1-150000 OE— OO, 

-O.OOOOOOOOE-19, 

0» 136000008—00, 

-O.OOOOOOOOE-19, 

XCGOD  = 

O.2SC00000E  00, 

0 

0.150000006  02, 

VTST  = 

0.60000000E  03, 

GTST 

0.20000000E  01, 

fTST  = 

0. 20000000E  05, 

QTST  a 

0.200000008  03, 

XKT 

-O.OOOOOOOOE-19, 

ATR8 

0.80000000E  00, 

BTRB  = 

0.31800000E  01, 

CDROP  = 

0,000000008—38, 

ALPCR  * 

0,000000008-38, 

OELHAC  * 

0.50000000E  00, 

PTMAC  = 

0, I2000000E  01, 

QOVPT  * 

— 0, 10000000F  03, 

. , 

CHIN 

0.10000000E  01, 

~ 

CMCOD  = 

0,27000000F  00, 

JPRORD  -= 

0, 

“ 

I PRINT  = 

0, 

IPHEAT  = 

0, 

VRTOPO  = 

0. 1 2000000E  05, 

XA 

0,000000008-38, 

IRNE  = 

0. 100000008  02, 

KNE 

0.230000008  01, 

VIRNE  = 

-0.000000008-19, 

-O.OOOOOOOOE-19, 

-O.OOOOOOOOE-19, 

-O.OOOOOOOOE-19* 

-O.OOOOOOOOE-19, 
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-O.OOuOOOttOE-19; =P700000000E=t?T- 


VGFOR 


-O.OOOOOOOOE-19, 
0. 39000000E  oi. 


— 0»  0000000 OE— 19  , 
= 0. 00000 OOOE— 38, 

C = 0.19200 OOOE— Ot » 


— O.OOOOOOOOE— 19, 

0.Z70000Q0E  01, 
—0^-000000005-19,' 


— 0. OOOOOOOOE— 19, 


0 . 10400000E— 01, 


rOOOOOOOOE- 


LDH  AT  60545  IN  HQ 
LOW  AT  60535  IN  NO 


-OH  AT  60541  IN  MQ 


ILL.  CRG. 
-Ifcfe-CRG.- 
ILL".  CRG. 


ILL.  CRG. 


QS  INTEGRAL  * 1.6374IE  03  QSTAR  INTEGRAL  = 1.28206E  03  QRE  INTEGRAL  = 1.133036-03  QRNE  INTEGRAL  * 3.490866-03 

at  HACH  - 1.20000E  00.  THE  DATA  ARE  AS -FOLLOWS. 

TtHF y l RHOA GAHHA— HACH QS  - QSTAR-  QRE  REY  HH/RTO  ALBAR  OYN-PR-  FREQ  QRNE  D/W  N/W 

294.68  797.  22071.  1.516-05  -34.68  1.20  0.1  0.0  0.0  7.96  05  3.0  9.7  4.8  0.3  ~0.0  0.6  0.0 


TIME  AT  TRANSITION  = 169.99 


— O.OOOOOOOOE— 19, 
-0 . 000000006-10^- 
—0. OOOOOOOOE— 19, 


-O.OOOOOOOOE-19, 
-0^000 0 00006-t9r- 
-0.000000006-19, 


-0.00000600E-19, 
— 0^000000 ^ 0 E-t9r- 
-0 .00  000 1.  JCh— 19, 
^o^ooooooooe-i9^ 
-0-000000006-19, 


-—O.OOOOOOOOE— 19, 
—O.OOOOOOOOE— 19, 
-O.OOOOOOOOE-19,  . 
-O.OOOOOOOOE-19, 

0^000000006—19, 

—O.OOOOOOOOE— 19, 
1^>0000000£-19,  - 


-O.OOOOOOOOE-19, 

i— 19,  — 
—0.000000006-19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 

-O.OOOOOOOOE-19, 

O.OOOOOOOOE-19, 

—O.OOOOOOOOE— 19, 

O.OOOOOOOOE— 19, — 

-O.OOOOOOOOE-19, 

--O.OOOOOOOOE-19, 

-O.OOOOOOOOE-19, 

O.OOOOOOOOE-19, 

-O.OOOOOOOOE-19, 

O.OOOOOOOOE- 19, 

-O.OOOOOOOOE-19, 

O.OOOOOOOOE-19,  - 

-O.OOOOOOOOE-19, 

0 .000000006-19, — 

-O.OOOOOOOOE-19, 

O.OOOOOOOOE- 14, 

-O.OOOOOOOOE-19, 

O .OOOOOOOOE — 19, — 

-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


—O.OOOOOOOOE— 19,  -0.000000006-19, 

O.OOOOOOOOE-19, •Q-.OOOOOOOQE— 19*~ 

— O.OOOOOOOOE— 19,  — 0. OOOOOOOOE— 19, 

0.00000  00  0 E- 1 9 , -O^OOOOOOOOE— 10 

-O.OOOOOOOOE- 19,  -O.OOOOOOOOE— 19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 
— 0.000000006-10,- 
-o.ooooooaae-19, 


-O.OOOOOOOOE-19, 

— O-.OOOOO0OOE~19„- 

— O.OOOOOOOOE-19,  -O.OOOOOOOOE-19, 

-O.OOOOOOOOE— 19, O.OOOOOOOOE-19, - 

-0.000000006— 19,  -O.OOOOOOOOE-19, 

-O^OOOOOOODE-3 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 
-—O.OOOOOOOOE— 19, 
—O.OOOOOOOOE— 19, 
>.000000006—3 


-O.OOOOOOOOE-19. 
—O.OOOOOOOOE-19,- 
—O.OOOOOOOOE-19, 
O.OOOOOOOOE— 19,- 


-0. OOOOOOOOE— 19, 


-O.OOOOOOOOE-19, 


0,000000006-19, 

-O.OOOOOOOOE-19, 

-O.OOOOOOOOE— 19, 

-O.OOOOOOOOE-19, 

O.OOOOOOOOE-19, 

-O.OOOOOOOOE-19, 

O.OOOOOOOOE-19,-  - 

"-O.OOOOOOOOE-19, 

O.QOCQOOOOE— 19,  - - 

-O.OOOOOOOOE— 19, 

O^OQOQQOOOE— 19,  — 

-O.OOOOOOOOE— 19, 

-O.OOOOOOOOE-14,  - 

-O.OOOOOOOOE-19, 

O.OOOOOOOOE-19,—  — 

-o.ooooooooe-19, 

O.OOOOOOOOE— 19, — 

—0.000000006—19, 

O.OOOOOOOOE-19, 

—O.OOOOOOOOE— 19, 


3.  OOOOOOOOE— 19, 
-O.OOOOOOOOE-19, 

O.OOOOOOOOE-19,  - 

-O.OOOOOOOOE-19, 
—O.OOOOOOOOE-19, 
—O.OOOOOOOOE— 19, 

— 0.-00  COOOOOE- 19, 
-O.OOOOOOOOE-19, 

O.OOOOOOOOE-19, 

-O.OOOOOOOOE-19, 

—O.OOOOOOOOE-19, 

-O.OOOOOOOOE-19, 

O.OOOOOOOOE-19, 

-O.OOOOOOOOE-19, 

O.OOOOOOOOE-19,  . 

-O.OOOOOOOOE-19, 
0.-OOOOOOOOE-19* 
—O.OOOOOOOOE— 19, 
— -0.000000006-19, 
-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


-0.000000006-19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 
-O.OOOOOOOOE-19,  -O.OOOOOOOOE-19, 

0.00  GOO  O0OE — 19, 0.000000006-19^-- 

— 0 .OOOOOOOOE— 19,  -O.OOOOOOOOE-19, 

06-19, 09-000000006-19,  - 

-O.OOOOOOOOE-19,  -O.OOOOOOOOE- 19, 

-0^000 00000 E — 19, O’.OOOOOOOOE— 10,~ 

-O.OOOOOOOOE-19,  * -b.OQOOOOOOE-19, 

—0^000000006-19.-- 


—0 .OOOOOOOOE— 19, 


-0.000000006-19, 


-O.OOOOOOOOE-19, 


—O.OOOOOOOOE— 19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


—0^ OOOOOOOOE— 19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


-O.OOOOOOOOE-19, 


"—O.OOOOOOOOE— 19, 
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OEtrHT — = 0.-100000006-04, 

»A« — 0.89S16000F  OS,-  

-HVE = — - 1T 

-l-S ■■=■ —St- 

— S4P-TST — - - 51, 

—PE = 0.  10450000E-  01, 

_OE = -0.000000006-38, 


0. OOOOOOOOE-38 
0.18100000E  00 
0.62000000E-01 
0.36000000E-01 
0.410000006-01 
0.  1 1 500000E  00 
0.360000006-01 
0.  180000006-01 
0.100000006  00 
0.1 19000006  00 
0. 430C0000E— 01 
0. 12000000E-01 
0. I 7400000E  00 
0.12100000E  00 
0.  54GOOOOOE— 01 
0.000000006-38 
0. 19800000E  00 
0. 91000000E-01 
0. 48000 OOOE— 01 

0. OOOOOOOOE-38 
-0.95000000E-01 
-0. 10000000E— 01 
-0.20000000E-03 
-0.21000000E-01 
-O.SOOOOOOOE-Ol 
-O.lOOOOOOOF-02. 
— 0. 10000000E-03 
-0. 40000000F-01 
-0.38000000E-01 
—0. 20000000E— 03 
—0. 10000000E— 03 
-0.77000000E-QV 
—0.410000006—01 
-0.30000  000E— 03 
0. OOOOOOOOE-38 
-0.89000000E-01 
-O.22O0OOOOE-O1 
-0.200000008-03, 


0.530000006-01. 

0. 16700000E  00, 

0^520000006—04,- 

0.26000000E-01, 

O -.800000006—01. 

0.96000000E-01,' 

- 0. 34000000E-01, 

0.90000000E-02, 

- 0.133000006-00, 

0.93000000E— Oi, 
0-.41000000E-OI, 

0 • OOOOOOOOE— 3B , 

• O.190OOOOOE  00,-  

0 .91 000000 E— 01 , 

0.480000006-04. 

0. OOOOOOOOE-38, 

• 0.204000006-  00.  - 
0.70000000E-01, 

-3.410000006-01.-  --  - 

0.-32000000E— 04. 

-0.84000000E-01, 

0.20000000E-02,  - - 

-O.IOOOOOOOE— 03, 

— 0.400000006-01,- 

-0.38000000E-01, 

0.2-00000006-03, 

-0.100000006-03, 

- -0.530000006-01, 

-0.26000000E— 01, 

- -0 .20000000E-03r 

0. 000000006-38, 

0.89000000E— 01. 

-0.22000000E— 01 , 

— 0.20000000E-03,  - 

0. 000000006-38, 

- -0.89000000E-01,  

— 0.90000000E-02, 

0 • 2 OOOOOOOE— 03. 


- XCPFA 


-o.ooocooooe-19, 

-o.ooooooone-19, 

-0. OOOOOOOOE— 19, 


— 0.00 000000 E— 19, 
—0. OOOOOOOOE— 1 9, 
-0. OOOOOOOOE— 19, 


0. 133000006  01, 

O-^360OOGGOE — 00-,- 

-0.460000006  00, 


-D.74000000E  00, 
—0^4*0000006-04, 
0*940000006  00, 
— 0,*oooooooe-oi-, 
-3.10600000E  01, 
—(4.1*3000006-04, 
0.760000006  00 

--0.40OOOOOOE-O4 
-0* 13000000E  01 


0.10000000E  Olt  0 ,760000006  00, 

— 0. 10200000E  01,  -Q.1Z600000E  01, 

0.159000006—04, 0-.45i0OOGO6-04r — 

0.74000000E  00,  0-52000000E  00, 

0. 700000006-01, -0-.260 000006-- OOf- 

— 0. 130000006  01,  -0.151000006  01, 

0.15*000006  01, 0 .-134000006-0 1» — 

0.57000000E  00,  0.38000000E  00, 

0.250000006  00, Or4?OQO 0006-00,  “ 

-0.152000006  01,  -0.167000006  01, 


446000006-01,— 
0.54000000E  00, 
■O.  23000000E — 00  , — 
■0.14700000E  01, 
-0^130000006-0 1 
0.340000006  00, 
-0.490000006  00," 
•0.162000006  01, 
-0.-1 15000006  01, - 
0.2OC00Q00E  00, 
-0.770000006  00, 
-0.169000006  01, 


0,110000006  03. 


0,140000006  03. 


-0.12120000E  01. 


-0,121200006  01, 


-0.000000006-19, 


-O.OOOOOOOOE-19, 


-0,000000006-19, 


-0.392000006  00, 


-0.392000006  00, 


— 0.39200000E  00, 


-0.392000006  00. 


-0, 13800000E  00, 


-0.138000006  00, 


-0.000000006-19, 


-0.000000006-19, 


-0.000000006-19, 


0.250000006  00, 


0. 15000000E  02, 


0.60000000E  03, 


0.20000000E  01, 


0.20000000E  05, 


0.200000006  03, 


-O.OOOOOOOOE-19, 


0.800000006  00, 


0.31800000E  01, 


O.OOOOOOOOE— 38, 


0. 00000 OOOE— 36, 


0.50000000E  00, 


0. 12000000E  01, 


-0. 10000000E  03, 


O.IOOOOOOOE  01, 


0.27000000E  00, 


0. 12000000E  05, 


0. OOOOOOOOE— 38, 


0.100000006  02, 


0.23000000E  01, 


—0. OOOOOOOOE— 19, 


—0. OOOOOOOOE— 19,  -O.OOOOOOOOE-19,  -0.000000006-19, 


— 0. OOOOOOOOE— 19, 


-64- 

77< 


-VEHfCtf — 6OV00- 


■65 


OUTPUTS  I CALCULATIONS  | INPUTS 


m.  COMPUTATIONS 


A.  BLOCK  DIAGRAM 

In  the  following  pages  are  presented  a block  diagram  {Figure  12)  illustrating 
the  operation  of  Program  1880,  and  a list  of  equations  which  are  solved  by  the 
computer.  The  block  diagram  is  arranged  to  indicate  the  sequence  of  opera- 
tions as  they  are  performed  within  the  computer.  Input  data  are  located  at 
the  top  of  the  diagram,  computations  are  shown  in  the  center,  and  outputs  are 
grouped  at  the  bottom.  The  list  of  equations  which  follow  the  diagram  is 
divided  into  groups  corresponding  to  the  computation  blocks  m the  diagram. 
Symbols  used  precede  the  equations. 


ATMOSPHERE 


I PARA  METRIC  CMVE  =10) 


TABLES  (MVE  -2) 


ALPHAE, 

BIB 

PE,  QE, 

RE 

VEHICLE  DATA  ^ 

MASS,  D [ RGX'  RGy  I xCG^D 


ATM  COMPOSITION 


PLANET  DATA 


B 

HI! 

HUB 

HHi 

: j 

EJl 



i 

RADIATIVE 

HEATING 

(1883  PROGRAM) 

h 

CONVECTIVE’ 

HEATING 

1 

] 

3 


QRE,  QRNE 
F/QRE,  /QRNE 


V,Z,  RHOA, 
GAMMA,  MACH, 
REY,  DYN,  PR  , 

D/W 

* M/COA  "1 


QS,  QSTAR, 

_ _HM/RT0 

/QS,  /QSTAR" 
TRANSITION 


ALBAR,  FREQ, 
N/W 


Figure  12  BLOCK  DIAGRAM  ILLUSTRATING  OPERATION  OF  PROGRAM  1880 
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B.  SYMBOLS: 


a Speed  of  sound,  it! sec 

a (with  subscript)  density  exponent  in  convective  heating  formula 

, (”i2\  2 

A reference  area  — j , ft 

b (with  subscript)  velocity  exponent  in  convective  heating  formula 

Cp  specific  heat  at  constant  pressure,  Btu/lb 

CD  drag  coefficient 

lift  coefficient 

CLa  lift  coefficient  derivative,  per  radian 

Cm  pitching  moment  coefficient 

Cmd  pitching  moment  derivative,  per  radian 

pitch  damping  coefficient,  per  radian 


*x 

'y 


normal  force  coefficient 
axial  force  coefficient 
reference  length  (diameter)^  feet 
drag,  pounds 

2 

local  acceleration  of  gravity,  it/ sec 

2 

Earth  gravity  at  sea  level,  32.  17  ft/sec 
2 2 

enthalpy # ft  /sec 

2 

roll  moment  of  inertia,  slug-ft 
moment  of  inertia  in  pitch  and  yaw,  slug-ft 
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K 

L 

m 

M 

N 

P 

P 

q 

q 

Q 

R 

.R 

*2 


Re 


S* 

e~ 

T 

V 


cp 

*A 


(with  subscript)  heating  constant 
temperature  gradient,  °K/ft 
mass,  slugs 

molecular  weight  and  Mach  number 

normal  force,  pounds 
2 

pressure , lb/ft 

vehicle  roll  rate,  rad/sec 

2 

dynamic  pressure  (pa  V2/ 2)  , lb/ft 

2 

(with  subscript)  heating  rate,  Btu/ft  -sec 
vehicle  pitch  rate,  rad/ sec 
vehicle  yaw  rate,  rad/ sec 

universal  gas  constant,  89,  516  ft^/sec^-mole-°K 
radius  from  center  of  planet,  feet 
Reynolds  number 

distance  from  stagnation  point  to  sonic  point,  feet 
time,  seconds 

o 

temperature,  K 
velocity,  ft/ sec 
Earth  weight , pounds 

distance  from  nose  to  center  of  gravity,  feet 
distance  from  nose  to  center  of  gravity  for  cm  data,  feet 
distance  from  nose  to  center  of  pressure,  feet 
mole  fraction  of  argon  in  atmosphere 
mole  fraction  of  carbon  dioxide  in  atmosphere 
-68-. 
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RE*  So. 


XN  mole  fraction  of  nitrogen  in  atmosphere 

XQ  mole  fraction  of  oxygen  in  atmosphere 

Z altitude,  feet 

a angle  of  attack,  degrees 

a total  angle  of  attack  (angle  between  vehicle  axis  of  symmetry  and 

velocity  vector),  degrees 

a total  angle  of  attack  envelope,  degrees  (max.  value) 

angle  of  sideslip,  degrees 
/3  inverse  scale  height,  feet 

y flight  path  angle  (positive  in  climb),  degr.ee s 

y adiabatic  exponent 

6 pitch  angle,  degrees 

2 

/x  viscosity,  lb-sec/ft 

3 

p density,  slug/ft 

a non-dimensional  radius  of  gyration 

<f>  roll  angle,  degrees 

ip  . yaw  angle,  degrees 

t oa  ' undamped  natural  frequency*  rad/ sec 

Superscript: 

* sonic  point 
Subscripts  : 

* ambient 

L laminar 

RE  radiant  equilibrium 
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HEa  No.  <=U-4J7 


RNE  radiant  nonequilibrium 

S stagnation  point 

SL  sea  level 

ST  stratosphere 

T turbulent 

TH  thermosphere 

TR  troposphere 

Z at  altitude  Z 

C.  EQUATIONS 

1.  Molecular  Weight  and  Specific  Heat 


XN  + Xo  + XC  + XA  = 1*° 

M = 28  XN  + 32  XQ  + 44  Xc  + 40  XA 

cp  3.5  Xjj  + 3-5  Xq  + 4.0  Xc  + 2.5  XA 

~R  “ M 

2.  Atmosphere  Calculations 


a.  Troposphere 

T " tSL  + z f 

\ MSSL 

Tsl  I R(tsl  - ltr  rsl) 
' = PSL  V 


+ 


ltr  rsl2  ln 


rsl  <tsl  + ltr  z>  ) 
tsl  (RSL  + Z>  j 


tsl  - ltr  rsl 


r70  - 

83< 


(1) 

(2) 

(3) 

(4) 


(5) 


where. 


LTR  - “ L1  SSl/cp 


(6) 


Lj  =s  temp  gradient  m troposphere  expressed  as  a fraction  of  the  adiabatic  lapse  rate 
b.  Stratosphere 

n _ _ * ^ST  zst  - Pz z 


J8  = 


M §SL  RSL 

R tst  (rsl  + z) 


M SSL 


PST  = pSL 


R (Tsl  - Ltr  Rsl) 


RSL  + ZST 


ltr  rsl 


} | rsl  (tst  + ltr  zstj  ^ 

TSL  (RSL  + ZSTJ  j 


tsl  - ltp  rsl 


(9) 


/%T 


ZST  = 


M SSL  RSL 


R TST  (RSL  + ZST^ 

(Tsx  - Tsl) 
ltr 


c.  Thermosphere: 

T = TST  + LTH  (Z  ~ ZTH^ 


PTH 


}T 


1 SsL 


[tst  - lth  (R$l  + Z^j)] 


(10) 


(ID 


(12) 

RSL  (Z  ” ZTffl 


Crsl  + z^  (RSL  + zth) 


2 f tTST  + LTH  (Z  - ZTH^  (RSL  + ZTH)  1 
™ SL  ln)  tst  (rsl  + Z)  1 


TST  - LTH  (RSL  + ZTH) 


(13) 
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pth  m^r  tst 


(14) 


pTH 


ZTH  = 


R Tst  R§l  lfl  (p/ P-pq) 

1 SSL  RSL  ~‘R  TST  ln  Cp/pTH^ 


(&ST  ZST^ 

P = PSTe 

d.  Speed  of  Sound: 


© 


RT 


(-?)”- 


1/2 


3.  Trajectory  Calculations 

a.  Equations  of  Motion: 
. - CD  q A 


. V2  Cos  y CLAq  sin  e 

Vy  = - g cos  y + 

R7  m sin  <y' 


b.  Supplementary  Relationships 


Z = V sin  y 
M = V/a 

q = Pa  y2/2 
8 ” SSL  (%l/Rz)2 

Rz  " rsl  + z 

p = f (Z)  from  atm  calcs. 

Re  = paVd/p 

[i  = f (T)  from  built  in  viscosity  table 
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(15) 

(16) 


(17) 


(18) 

(19) 

(20) 
(21) 
(22) 
(25)' 

(24) 

(25) 
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T = f(Z)  from  atm.  calcs. 

D/W  = (CD)a  = oqA/mg0 

Cp  = f(M,  a')  from  coefficient  calculations 
4.  Dynamics  Calculations 


(26) 


a.  Equations  of  Motion 

The  Q equation  is  given  in  Section  I.  B.  4 (Calculation  Model) 


The  R equation  is  given  in  Section  I.  B.  4 (Calculation  Model)  (28) 


b.  Supplementary  Relationships: 


tp  = (R  cos  <p  + Q sin  tp)  sec  8 
8 = (Q  cos  — R sin  <£) 

0 = (P  + xp  sin  <j 6) 


m ox2  d^ 
m ffy2  d2 


sm  a = (sin  8 cos  cos  + sin  *p  sm<£) 

sm  ^3  = (sm  ip  cos  — sm  0 cos  ip  sin  <p) 
sin  a'  = (sm2  *p  4-  cos2  \}j  sin2  0)^2 


N/W 


CN(S)  q A/mge 


CN’  Cm>  Cmq>  CLg  = f(M,  a 0 from  coefficient  calculations 
c.  Linearized  Equations  of  Motion 


(t! 


- C q 

%,o  q° 


1/4 


1/2 


/P:  V dt 


(29) 

(30) 

(31) 

(32) 

(33) 

(34) 

(35) 

(36) 

(37) 


(38) 
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% ■ 

where. 


(Cl)  a - (cL) 

a+  A«  ^ a 
A a 


Cl  = Cjyj  cos  a — Cy  sin  a 

(CN>a  >180  “ “ (Cn)180  - (a  - 180) 


(Cy)  = (Cy) 

A a > 180  X 180 -(a -180) 


(CL)  = - (CL) 

m a>  180  m 180-  (a  - 180) 


(V«  >180  - (a  - 180) 


(Ct  ) = (CT  ) 

a a > 180  La  180  - (a  - 180) 


7.  Convective  Heating 


a.  Laminar 


Kt 


% = 


(d/2)1/2 


Pa 


1/2 


-) 
,i  W 


where, 

Kl  = (1.1  + 0.075  M)  x 104x  -i- 

L2V  WsJ 

bL  = 3.909  - 0 0229  M 

M = molecular  weight 


d / du 


2V 


/ du\ 

\ ds/c 


velocity  gradient  at  stagnation  point 


b.  Turbulent 
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(47) 

(48) 

(49) 

(50) 

(51) 

(52) 

(53) 

(54) 

(55) 

(56) 


(57) 
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where. 


Kx  = [540000/(S*)°-2]  (THF) 

S*  = distance  from  stagnation  to  sonic  point  at  zero  angle  of  attack 
THF  = turbulent  heating  factor 


(58) 


(59) 


where( 

Pg/pa  = density  ratio  at  stagnation  point 
H*  ~ f (T*  ) from  built-in  viscosity  table 


p,/*  = (tH) 


1 

7TT 


(60) 


H = (HM/RT0)  24.4522  x 106/M 
T*  = 2Ts/(y+l) 

Tg  s=  temperature  at  stagnation  point 

(PS/pa)  + 1 
7 " 1 


HM/RTC 


V2  M 

2RT; 


MCpTa 

RT0 


(61) 

(62) 

(63) 

(64) 

(65) 
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8.  Nonequilibrium  Radiation  Heating 


ane 


Ap 


(66) 


(67) 


A > ANE 


^RNE  = 

Ap  < A < Ane 

'Jrne  = 

A < Ap 

9RNE  * ^E  “ 


1 Ap  1 ANE 

2 A ~ T A 


JNE  ANE 

% 2 A . 


(68) 


Ap  1 

ANE  JNE  ANE  1 

(ane 

-A)2 

-i) 

2 

~A  2 

A ~2A  T 

(ANe  - 

Ap)  A 

li  7 

1 JNE 

A 

(70) 

2 I£  Ap 


(69) 


IE  A 

,E 

(71) 

% (h>  Ni-  T)  - 

see  Program  1883 

(72) 

Alternate  Nonequilibrium  Mo  del 

XNE  A 

DIRNE 

(73) 

% ane 

QE 

DIRNE  (VIRNE) 

(74) 
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rv.  IBM  ROUTINES 


A.  PROGRAM  FLOW 

The  program  flow  is  illustrated  in  Figure  13. 


. ' Figure  13  FLOW  DIAGRAM  OF  PROGRAM  1880 
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B.  C0MM0N  STORAGE 


Much  data  are  transferred  between  the  main  program  and  the  subroutine 
DERQO  which  computes  the  values  at  time  (t)  of  the  eight  possible  differential 
equations  being  integrated.  Many  other  tables  are  placed  in  C0MM0N  storage 
to  prevent  an  overlap  of  the  loading  tables  and  the  program  when  Program 
1880  is  placed  m core.  C0MM0N  data  are  as  follows: 

DERQO 


Name 

Quantity 

Source 

Input  or  Output 

Description 

ZST 

ZST 

Main 

Input 

Stratosphere  altitude. Used 
to  compute  atmospheric 
properties* 

ZTH 

ZTH 

Mam 

Input 

Thermosphere  altitude.  Used 
to  compute  atmospheric 
properties. 

RH0 

P 

DERQO 

Output 

Ambient  density  at  trajectory 
time  t. 

ZTBL. 

Program 

Input 

Input 

Altitude  table  for  tabular 
atmosphere. 

TETBL, 

Program 

Input 

Input 

Temperature  table  for 
tabular  atmosphere. 

R0TBB 

Program 

Input 

Input 

Density  table  for  tabular 
atmosphere. 

CD 

CD 

Program 

Input 

Input 

Drag  coefficient  as  a function 
of  Mach  number  XMACH. 

XMACH 

Program 

Input 

Input 

Mach  number  table  used  with 
CD  above. 

xili 

Jki 

Program 

Input 

Input 

Troposhere  temperature  grad- 
ient. Used  to  compute  at- 
mospheric properties. 

GSL 

°SL 

Program 

Input 

Sea  level  gravitational  accel- 
eration. Used  to  compute 

atmospheric  properties  and 
trajectory. 
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DERQO 


Name 

Quantit 

y Source 

Input  or  Output 

Description 

CP0R 

CP/R 

Main 

Input 

Specific  heat  divided  by  gas 
• constant.  Used  to  compute 
atmospheric  properties. 

TST 

tst 

Program 

Input 

Input 

Stratospheric  temperature. 
Used  to  compute  atmos- 
pheric properties. 

TS  L 

tsl 

Program 

Input 

Input 

Sea  level  temperature.  Used 
to  compute  atmospheric 
properties. 

RH  0SL 

8SL 

Program 

Input 

Input 

Sea  level  density.  Used  to  com- 
pute atmospheric  properties. 

RSL 

rsl 

Program 

Input 

Input 

Planet  radius.  Used  to  com- 
pute atmospheric  properties 
and  trajectory. 

XM 

M 

Main 

Input 

Mean  molecular  weight  of 
atmosphere.  Used  to  compute 
atmospheric  properties. 

AR 

R 

Main 

Input 

Gas  constant.  Used  to  com- 
pute atmospheric  properties. 

XL2 

^TH 

Program 

Input 

Input 

Thermosphere  temperature 
gradient.  Used  to  compute 
atmospheric  properties. 

MVE 

Program 

Input 

Input  , 

If  = 1,  parametric  atmos- 
phere if  = 2,  tabular. 

XL0 

Lo 

Main 

Input 

Troposphere  temperature 
gradient.  Used  to  compute 
atmospheric  properties. 

CSUBD 

CD 

DERQO 

Output 

Drag  coefficient  at  trajectory 
time  t. 

cL 

cL 

No  current  use. 
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DERQO 


Name 

Quantity 

S ource 

Input  or  Output 

Description 

XMAC 

M 

DERQO 

Output 

Mach  number  at  trajectory 
time  t. 

SMA 

a 

DERQO 

Output 

Ambient  speed  of  sound  at 
trajectory  time  t. 

A 

A 

Mam 

Input 

Vehicle  area.  Used  to  compute 
trajectory. 

SMM 

m 

Program 

Input 

Input 

Mass  of  vehicle.  Used  to  com- 
pute trajectory. 

TEMP 

T 

DERQO 

Output 

Ambient  temperature  at  tra- 
jectory time  t. 

R0BAR 

P 

Main 

Input 

Stratosphere  density  used  to 
compute  atmospheric  prop- 
erties. 

RH0TH 

pth 

Mam 

Input 

Thermosphere  density  Used 
to  compute  atmospheric 
properties. 

TABAL 

Program 

Input 

Input 

Angle-of-attack  table.  Used 
as  independent  variable  table 
for  coefficients  as  functions 
of  a and  M to  compute  tra- 
jectory. 

CNF  A 

CN 

Program 

Input 

Input 

table  as  function  of  a 
and  M to  compute  trajectory. 

XCPFA 

xcp 

Program 

Input 

Input 

Xqp  table  as  function  of  a 
and  M to  compute  trajectory. 

CMQFA 

cmq 

Program 

Input 

Input 

Cmq  tables  as  function  of  a 
and  M to  compute  trajectory. 

CLAFM 

Program 

Input 

Input 

Cj^  table  as  function  of  M 
to  compute  trajectory. 

CMQFM 

mq 

Program 

Input 

Input 

Cmq  table  as  function  of  Mto 
compute  trajectory. 
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DERQO 

Name 

Quantity 

Source 

Input  or  Output 

Description 

CMAFM 

C 

raa 

Program 

Input 

Input 

table  as  function  of  M to 
compute  trajectory. 

XCG0D 

xcg/d 

Program 

Input 

Input 

XCG/D  center  of  gravity.  Used 
to  compute  trajectory. 

ZIX 

ix 

Program 

Input 

Input 

I-j£  moment  of  inertia.  Used  to 
compute  trajectory. 

ZIY 

Program 

Input 

Input 

Iy  moment  of  inertia.  Used 
to  compute  trajectory. 

D 

d 

Program 

Input 

Input 

Vehicle  diameter . Used  to 
compute  trajectory. 

NQEQD 

Main 

Input 

Number  of  equations  being 
integrated:  3 for  particle 
trajectory;  8 for  trajectory 
and  dynamics. 

ADDG 

a'* 

DERQO 

Output 

Angle  of  attack  at  trajectory 
time  t. 

P 

p 

Program 

Input 

Input 

Constant  spm  rate  used  to 
compute  trajectory. 

RTX 

REY 

Used  to  prevent  loading  table, 
program  overlap. 

HRT 

HM/RTq 

Used  to  prevent  loading  table, 
program  overlap. 

QS 

qs 

Used  to  prevent  loading  table, 
program  overlap. 

QT 

q* 

Used  to  prevent  loading  table, 
program  overlap. 

QR 

qR 

Used  to  prevent  loading  table, 
program  overlap. 

TIME 

t 

Used  to  prevent  loading  table, 
program  overlap. 
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DERQO 


Name 

Quantity 

Source 

Input  or  Output 

Description 

XMBCH 

M 

Program 

Input 

Input 

Independent  variable.  Mach, 
number  table  used  to  com- 
pute coefficients  as  a function 
of  a and  M for  trajectory. 

CXFA 

CX 

Program 

Input 

Input 

Cx  table  as  a function  of  a 
and  M used  to  compute  tra- 
jectory. 

CLAFA 

CL« 

GETCLA 

Input 

CLa  table  as  a function  of  a 
and  M used  to  compute  tra- 
jectory. 

CMFA 

cm 

Program 

Input 

Input 

Cj^j-  table  as  a function  of  a 
and  M used  to  compute  tra- 
jectory. 

XQW 

D/W 

Drag  force  ratio. 

ENQW 

N/W 

Normal  force  ratio. 

XMAX 

Main 

Input 

Largest  value  of  XMBCH. 

XMIN 

Main 

Input 

Smallest  value  of  XMBCH, 

IX  MAX 

Mam 

Input 

Index  of  XMAX  in  XMBCH. 

IX  MIN 

Mam 

Input 

Index  of  XMIN  in  XMBCH. 

CMIN 

Program 

Input 

Input 

If  CMIN  >0,  use  CMFA  and 
CMCQD  for  CM  if  CMIN 

< O,  use  XCPQD  for  C . 

* M 

CMC(ftD 

Program 

Input 

Input 

Used  to  compute  Cj^  for  tra- 
jectory if  CMIN  > O. 
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C.  SUBROUTINES 


Variable 

CNFA,  CN  coefficient 
table 

CXFA,  Cx  coefficient 
table 

TABAL,  & independ- 
ent variable  table 

CLAFA,  CIja  coef- 
ficient table 

GETCLA 

Subroutine  Input  or 
output 

Output 

SOURCE 

Program  Input 

Program  Input 

Program  Input 

GETCLA 

Variable 

NXG,  Atmos  table 
number 

X0,  <t>z  mole  fraction 

XN,  mole  fraction 

XC,  mole  fraction 

Input  or  Output 

Input 

Input  Program 

Input  Program 

Input  Program 

COOL. 

SOURCE 

MAIN 

Input 

Input 

Input 

XA,  A mole  fraction 

IPRG,  print 
sentionol 

RH 0,  ambient  density 

VY,  Vehicle 
velocity 

QRIG,  total 
equilibrium  radiation 

ZNAML  table  of  % 
specie  names 

Input 

Input 

Input 

Input 

Output 

Input 

Program  Input 

Program  Input 

DEREQ 

ADM4RK 

CETN 

MAIN 

ZNAM2,  table  of 
radiation  source 

ENT0T,  stagnation 
enthalpy 

R0RZ  density  ratio. 

DEL0RC,  table  of 
i/RC 

TSSZ  Stagnation 
Temperature 

TIM,  Trajectory 

Input 

Input 

Output 

Input 

Output 

Input 

MAIN 

MAIN 

HEAT 

Program  Input 

HEAT 

ADM4RK 

TTTBL,  Zone  1 
temperature  table 

T2TBL,  Zone  2 
temperature  table 

T3TBL.  Zone  3 
temperature  table 

MTBL,  Zone  1 
enthalpy  table 

H2TBL,  Zone  2 
enthalpy  table 

H3TBL,  Zone  3 
enthalpy  table 

Input 

Input 

Input 

Input 

Input 

Input 

HVST 

HVST 

HVST 

HVST 

HVST 

HVST 

DENR,  table  of 
density  ratios 

D,  vehicle 
diameter 

DELDG,  * 
detachment  distance 

Input 

Input 

Output 

Program  Input 

Program  Input 

HEAT 

Variable 

V,  Velocity 

RH0,  ambient  density 

XN,  Nz  mole  fraction 

X0,  02  mole 

HEAT 

Subroutine  Input 
or  Output 

Input 

mp.. 

' 

SOURCE 

ADM4RK 

DEREQ 

Program  Input 

Program  Input 

XGj  mole 

fraction 

XA,  A mole 
fraction 

NX  atmosphere  Sible 
numbers 

P , Stagnation 
pressure 

T,  Stagnation 
temperature 

Z,  moles  of  gas 
mixture  at  T Jt  P 

Input 

Input 

Input 

Output 

Output 

Output 

Program  Input 

Program  Input 

MAIN 

HEAT 

HEAT 

Z0NES 

Rf^ST,  density 
ratio 

QSUM- total 
radiation  heating 

QI- component 
radiation  heating 

X-moles  of  species 
in  mixture  of  T&P 

HDHS  dissociation 
e ner  gy — enthalpy 

HRT,  enthalpy 

Output 

Output 

Output 

Output 

Output 

Output 

HEAT 

GETN 

GETN 

Z0NES 

FINDH 

FINDH 

DEL0RC,  table  of 

a/rc 

DUM-moles  of  O*. 
N-*7  Cte-  In  Zone  2 

ENT0T-stagnation 
enthalpy  (HRT) 

>H1TBI,  Zone  1 
enthalpy  table 

H2TBL  Zone  2 
enthalpy  table 

H3TBL  Zone  $ 
enthalpy  table 

, Input 

Output 

Input 

Input 

Input 

Input 

Program  Input 

Zj^NES 

MAIN 

HVST 

HVST 

HVST 

T1TBL,  Zone  I 
temperature  table 

T2TBL,  Zone  2 
temperature  table 

T3TBL,  Zone  3 
temperature  table 

DENR,  table  of 
density  ratio 

D,  vehicle  diameter 

DEL,  A detachment 
distance 

Input  f 

Input 

Input 

Input 

Input 

Output 

HVST  - 

HVST 

HVST 

Program  Input 

Program  Input 

HEAT- 
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Subroutine  Input  or 
J Output 


TSSZ  stagnation 
temperature 


ENTJJ&T,  stagnation 
enthalpy- 

input 

MAIN 


DUMJtEY 
constant  t 
Reynolds  No 


Rd  (I),  ambient 
density 


Input 

MAIN 


Output 

MAIN 


keys,  local  Reynolds 


Output 

CKTRB 


Calling  sequences  for  ADAMS4  and  DERQO  are  described  in- the  section  of 
special  routines 

Calling  sequences  for  HVST,  GETN,  ZONES,  GETK,  FINDT,  FINDH,  and 
GETQ  are  the  same  as  for  those  routines  in  the  1883  program  description. 


Variable 

DELDG,  detachment 
distance 

DSP,  distance  to 
peak  nonequilibrium 
intensity 

• DNE  nonequilibrium 
distance 

X1RN,  rone  quill  hn-jum 
intensity  ratio 

NONEQU 

Subrouting  Input 
or  Output 

Input 

Input 

Source 

HEAT 

MAIN 

MAIN 

Program  Input 

OR  1(1),  Equilibrium 
radiation  heating 

QRNE  (I)  non- 
radiation  heating 

Input 

Output 

GETN 


NONEQU 


1*  Subroutine  DERQO 


Purpose:  DERQO  computes  the  atmospheric  properties  for  the  altitude 
at  each  time  step  of  the  numerical  integration  of  the  trajectory  and 
dynamics  differential  equations,  and  provides  the  values  of  the  derivatives 
of  the  differential  equations  for  the  succeeding  integration  step. 

Method:  The  values  of  the  dependent  variables  of  the  integration  are 

contained  in  the  array  X of  the  calling  sequence,  at  time  = TIM,  and 
the  derivatives  are  computed  and  stored  m the  array  DERX,  All 
other  data  are  passed  through  C0MM0N.  The  quantities  m each  X are: 
Velocity  (V),  flight  path  angle  ( y ),  altitude  (Z),  pitch  rate  (Q),  yaw 
rate  (R),  and  the  Euler  angles  (0,  0,0).  . 

Knowing  the  altitude  at  time  TIM,  DERQO  first  computes  the  atmos- 
phere temperature  TEMP  and  density  RH0  corresponding  to  that 
altitude.  It  does  this  with  tables  (MVE  = 2,  Statements  10  and  12)  or 
from  a parametric  representation  (MVE  = 1,  Statements  20  to  70),  By 
the  execution  of  Statement  93  the  Mach  number  and  speed  of  sound 
(XMAC  and  SMA)  are  calculated,  as  well  as  the  value  of  dz/dt. 

After  Statement  92  the  number  of  equations  (NOEQD)  is  tested,  and 
if  this  is  8 the  remaining  trajectory  and  dynamics  derivatives  must 
be  evaluated  using  coefficients  that  are  functions  of  angle  of  attack 
and  Mach  number.  If  N0EQD  = 3,  only  the  two  remaining  particle 
trajectory  derivatives  (dv/dt,  dy/dt)  are  evaluated  using  a drag  coefficient 
as  a function  of  MACH  number  (XMACH)  only,  and  the  RETURN  before 
Statement  99  returns  control  to  ADAMS4  so  that  the  integration  may  be 
continued.  If  all  eight  derivatives  must  be  evaluated,  transfer  is  made 
to  Statement  99  and  by  Statement  1000  the  angle  of  attack  at  time  TIM 
is  computed  from  the  Euler  angles.  Statements  from  1000  to  1019 
compute  the  aerodynamic  coefficients  by  double  interpolation  in  angle 
of  attack  (through  ARTLU  and  ALPHA)  and  Mach  number.  Tests  are 
first  made  (before  1000  or  before  1001),  and  if  the  Mach  number  is 
lower  (higher)  than  the  lowest  (highest)  value  m XMBCH.  In  addition, 
for  values  of  ALPHA  above  180  a transform  is  made  to  the  value  of  the 
coefficient  in  the  range  between  0 and  180.  The  values  of  the  deriva- 
tives are  computed  between  Statements  1019  and  9999. 

2.  Subroutine  CQQL 

Purpose:  Subroutine  C00L  accepts  data  from  the  trajectory  calculation 
in  such  form  as  is  suitable  for  the  radiation  heating  calculation,  initiates 
the  heating  calculation,  and  returns  radiation  and  gas  dynamic  data  to 
the  main  program.  If  IPRQRD  is  > 1.0,  C00L  also  causes  data  to  be 
printed  out  each  time  it  is  called. 
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Method:  Subroutine  C00L  is  analogous  to  the  main  program  of 

program  1883  (see  1883  description).  The  program  flow  for  1880  de- 
scribed above  contains  the  logical  position  of  the  subroutine  and,  in 
fact,  the  ’'radiation  heating  Program  1883”  division  reflects  the  logical 
flow  of  Program  1883  (call  HEAT,  and  so  forth).  If  the  sentinel 
IPRQRDis>  1.0,  subroutine  C00L  will  provide  the  normal  1883  output 
each  time  it  is  called,  along  with  the  trajectory  time  for  identification. 

3.  Subroutine  N0NEQU 


Purpose:  To  compute  the  value  of  the  nonequilibrium  radiation  heating 

for  each  time  recorded  on  the  output  tables. 

Method:  Immediately  before  N0NEQU  is  called  for  some  TIME  entry, 
the  equilibrium  radiation  heating  calculation  (subroutine  C00L,  et  al) 
has  provided  the  equilibrium  radiation  and  the  detachment  distance 
(QR  (I  )and  DELDG)*  Given  the  distance  to  peak  nonequilibrium  inten- 
sity and  the  nonequilibrium  density  (computed  in  the  main  program  as 
DSP  and  DNE,  plus  the  input  factor  IRNE,  the  nonequilibrium  radia- 
tion is  computed  from  one  of  three  relations  (Reference  1,  p.  104. Equa- 
tion (78))  which  relation  is  used  to  compute  QRNE  at  time  TIM,  depend- 
ing on  the  relative  magnitude  of  DEL0G,  DNE,  and  DSP, 

4.  Subroutine  CKTRB 


Purpose:  Subroutine  CKTRB  computes  the  local  Reynolds  number  at 
the  sonic  point  each  time  the  equilibrium  radiation  calculation  is 
successfully  performed  during  the  trajectory. 

Method:  Using  output  from  the  equilibrium  radiation  calculation,  density 
ratio,  stagnation  temperature,  and  stagnation  enthalpy,  plus  the  am- 
bient density,  viscosity  (known  as  a function  of  temperature),  and  S* 
from  SS0D  m the  program  input,  the  Subroutine  CKTRB  evaluates 
the  local  Reynold's  number  at  the  sonic  point  from  a straight-forward 
algebraic  solution. 

5.  Subroutine  HEAT 

Purpose:  See  1883  description 

Method:  The  method  used  by  HEAT  inProgram  1880  is  the  same  as 

m 1883  with  the  following  changes.  HEAT  no  longer  calls  tne  sub- 
routine HVST,  but  has  the  output  from  that  subroutine  given  to  it  by 
subroutine  C00L,  which  receives  it  from  the  1880  mam  program  which 
calls  HVST  once  for  each  traj'ectory.  HEAT  does  not  compute  the 
stagnation  enthalpy,  but  receives  it  via  C00L.  from  the  trajectory 
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calculation.  Also  the  detachment  distance  is  not  supplied  by  direct 
input  or  the  correlation  in  b/a  and  inverse  density  ratio,  but  from  a 
direct  correlation  between  detachment  distance  and  density  ratio 
supplied  as  program  input  {tables  L>EL0RCand  TABDR  in  the  input). 

6.  Subroutine  GETN 


Purpose:  See  1883  description 

Method:  Same  as  in  1883,  but  the  effective  emissivities  and  detach- 
ment distance  are  deleted  from  the  program  output. 

Subroutines  HVST,  GETK,  GETQ,  FINDH,  FINDT,  and  Z0NES  are 
the  same  as  in  Program  1883. 

7 .  Subroutine  GET  CL- A 


Purpose ; GET  CL  A will  compute  a table  of  from  the  input  tables 
and  C^»  1 

Method:  Subroutine  GETCLA  computes  the  coefficient  Cj^  by  a linear 
approximation  of  the  derivatives  which  depend  upon  tables  of  and 
CX-  A value  of  is  computed  for  each  of  5 Mach  numbers  and  19 
angles  of  attack  in  the  loop  ending  at  Statement  100  5. 

8.  Subroutine  INTRP 

Purpose:  To  interpolate  trajectory  data  at  a specified  Mach  number 
or  dynamic  pressure,  and  print  the  results. 

Method:  Linear  interpolation. 

D.  MAIN  PROGRAM 

Purpose:  The  purpose  of  the  main  program  is  to  acquire  input,  provide 
for  the  integration  of  the  trajectory  and  vehicle  dynamics  equations  {done 
by  ADAMS4),  exercise  suitable  options  during  the  course  of  the  trajectory 
calculations  {depending  on  the  value  of  certain  input  quantities),  provide 
for  the  calculation  and  storage  of  all  quantities  which  appear  in  the  output 
tables,  and  provide  output  from  the  calculation. 

Method:  To  easily  follow  the  logical  flow  of  the  main  program,  one  must 
remember  two  facts.  First,  the  integration  of  the  trajectory  equations 
is  arranged  under  normal  operating  procedure  so  that  ADAMS4  returns 
control  to  the  main  program  after  each  integration  step.  The  size  of 
this  time  interval  depends  only  upon  the  behavior  of  the  differential 
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equations  and  the  accuracy  requirements.  Second,  since  these  time 
steps  are  usually  rather  small,  to  provide  output  for  each  step  would 
be  quite  time  consuming.  Therefore,  only  some  integration  data 
appear  on  the  output  tables  and  the  points  selected  depend  upon  the 
rates  of  change  of  physical  quantities  of  interest  to  the  user.  For 
example,  if  the  altitude  is  changing  rapidly,  finer  resolution  is 
shown  on  the  output  for  the  time  span  in  which  this  occurs.  All  out- 
put points  selected  are  stored  on  tables  which  are  printed  after  the 
entire  trajectory  has  been  calculated. 

The  maximum  number  of  lines  of  output  is  150,  and  it  is  solely  the 
responsibility  of  the  problem  submitter  to  assure  {by  judicious  selection 
of  values  for  VTST,  GTST,  ZTST,  QTST,  and  DELMAC)  that  these 
tables  are  not  exceeded.  All  statements  before  500  either  specify 
variables,  or  define  preset  input  or  tables.  ZNAM1  and  ZNAM2  are 
arrays  of  Hollerith  names  which  define  species  and  radiation  contribu- 
tors for  the  radiation  heating  block.  The  tables  TMPVS  and  VISC 
define  viscosity  as  a function  of  temperature.  TBSUM  is  the  sum  of 
O,,  + CO  for  each  of  the  eleven  atmospheric  tables  of  enthalpy  and 
temperature  (see  main  description). 

After  Statement  500,  sentinels  are  initialized  for  each  case,  and  data 
is  read  in  through  the  Namelist  array  INPUT.  The  values  of  the  high- 
est and  lowest  Mach  numbers  in  the  array  XMBCH  have  been  computed 
by  Statement  3003,  and  subroutine  GETCLA  is  called  to  provide  a table 
of  values  for  for  the  tables  of  C and  C Following  the  call 
GETCLA,  the  modes  of  certain  input  variables  are  changed,  the  moments 
of  inertia  computed  from  the  radii  of  gyration,  S*  computed,  and  by 
Statement  3018  the  appropriate  tables  for  the  atmosphere  being  run  have 
been  selected  by  the  calculation  of  NXG  (i.  e.  the  tables  whose  sum  of 
02  and  CO^  mole  fractions  is  closest  to  the  sum  of  the  input  XO  and  XC). 
Call  HVST  obtains  these  enthalpy  and  temperature  tables  for  use  by  the 
radiation  heating  calculation.  Diagnostic  tests  are  performed  before 
Statement  3048  to  assure  that  the  sum  of  the  mole  fractions  is  1.  - .001, 
and  that  XN  ^ .001.  By  Statement  24,  further  initialization  has  been 
completed,  constants  computed  for  the  theorized  dynamic  calculation, 
and  the  quantities  which  determine  output  points  defined  from  the  input. 
The  statements  immediately  following  24  define  .atmospheric  properties 
and  constants  for  the  computation  of  the  convective  heat  pulses.  The 
heat  pulses  which  appear  in  the  output  tables  are  computed  only  at  out- 
put points  (not  for  every  integration  time  step),  since  the  pulses  QS, 
QSTAR,  and  QRNE  all  depend  upon  the  density  ratio  computed  by  the 
radiation  heating  calculation,  and  it  is  prohibitively  expensive  to 
compute  the  radiation  for  each  integration  step.  However,  the  selec- 
tion of  an  output  point  itself  depends  upon  the  rate  of  change  of  the 
stagnation  point  convective  heating.  For  this  reason  an  approximate 
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heat  pulse  is  computed  and  integrated  by  the  program  so  that  output 
points  may  be  selected.  The  quantities  XKL,  QSl,  QS2,  and  SMQS  are 
used  for  this  pulse.  Then  the  initial  values  for  the  eight  differential 
equations  are  defined,  along  with  other  parameters  used  by  the  pre- 
dictor-corrector integration  routine  ADAMS4. 

The  statements  between  220,  CALL  ADAMS4  and  the  computed  G£) 

T$  numbered  105  toward  the  end  of  the  program  form  a logical  loop 
completed  for  each  time  step  of  the  trajectory  calculation  until  the 
vehicles  trajectory  has  been  entirely  computed  (either  until  impact  or 
t = TST£)F).  Immediately  after  the  enthalpy  (ENT0T),  velocity  (VY), 
and  dynamic  pressure  (DYNPR)  are  computed,  the  sentinel  NITWIT 
(preset  to  0 after  Statement  500)  is  checked.  If  NITWIT  is  > 0,  this 
means  that  the  linearized  dynamic  calculations  were  not  done  because 
the  angle -of -attack  envelope  at  peak  dynamic  pressure  was  > ALPCR, 
and  the  five  dynamics  equations  are  to  be  integrated  until  impact  unless 
the  dynamic  pressure  becomes  larger  than  a quantity  proportional  to 
CDR0P.  When  NITWIT  >0,  this  quantity  is  computed  and  tested  against 
the  dynamic  pressure  for  each  time  step  (Statement  367).  If  larger  than 
the  dynamic  pressure,  only  the  first  three  (particle  trajectory)  differ- 
ential equations  are  integrated;  all  remaining  angle-of-attack  envelope 
values  (ALENV)  are  set  equal  to  the  last  angle-of-attack  envelope  com- 
puted (DQ1615)  and  no  further  angles  of  attack  are  computed  (ILATE=  1, 
12BIG  = 1 ), 

At  Statement  368,  the  current  value  of  the  dynamic  pressure  is  tested 
against  the  value  computed  for  the  previous  time  step, If  it  is  smaller,  the 
last  value  of  the  dynamic  pressure  in  the  output’ tables  (QD(I))  is  taken  as 
the  peak  dynamic  pressure,  and  the  values  of  all  variables  at  TIME  (I) 
are  used  to  compute  all  quantities  of  interest  at  peak  dynamic  pressure, 
including  initial  values  of  the  integrals  and  constants  of  interest  in  the 
linearized  dynamic  calculations  (GM10,  PHI10,  PHI0GM,  PSI10,  TMIG1). 
ILATE,  preset  to  0,  is  set  equal  to  1 to  delete  any  further  testing  for 
peak  dynamic  pressure. 

Statements  601  to  6 05  complete  the  consideration  of  data  for  angle-of-attack 
calculation  dependent  upon  the  integration  of  the  (last)  five  dynamics 
differential  equations.  Since  only  the  value  of  the  angle  of  attack  at  time 
(TIM)  is  known  for  each  time  step,  additional  calculations  are  necessary 
to  compute  the  value  of  the  angle-of-attack  envelope  at  time  t.  The  angle 
of  attack  at  TIM  is  ALDG,  and  the  previously  computed  value  is  AOLD.  If 
the  angle  of  attack  has  been  increasing  (IPK  = 2),  but  the  current  ALDG  < 
A(#LD,  then  a peak  is  defined  (PKNEW  at  TALNEW),  and  with  a knowledge 
of  the  previously  defined  peak  (PKQ)LD  at  TAL$LD),  an  angle-of-attack 


-90- 


envelope  value  for  some  output  point  such  that  TAL$LD  < TIME(JPAL)< 
TALNEW  may  be  computed  by  linear  interpolation  (Statement  805)*  Here, 
JPAL  is  the  number  of  envelope  values  already  computed  +1.  The  state- 
ments between  3055  and  807  serve  only  to  compute,  as  a function  of  angle 
of  attack  and  Mach  number,  the  coefficients  necessary  in  the  calculation  of 
N/ W (EN0W).  If  ILATE  > 1 (first  computation  for  angle  of  attack  after  peak 
dynamic  pressure),  the  statements  following  606  are  executed  to  compute 
quantities  for  the  linearized  dynamics  which  depend  on  the  angle- of- attack 
envelope  at  peak  dynamic  pressure*  If  this  envelope  value  is  less  than 
the  input  ALPCR,  the  dynamics  differential  equations  are  deleted,  the  integra- 
tion reinitialized  (Statement  1090),  and  IS  KIP  (preset  to  0)  is  set  to  1.  The 
ISKIP  value  deletes  all  consideration  of  the  angle  of  attack  from  the  dynamics 
differential  equations  by  skipping  the  statements  between  700  and  605.  If 
ALPCR  is  too  small  (no  linearized  dynamic  option),  the  eight  differential 
equations  are  retained,  ISKIP  is  set  to  0,  ILATE  is  set  to  0,  and  NITWIT 
(see  discussion  of  CDR0P  above)  is  set  to  1 (Statement  613).  Statement  605 
ends  the  angle -of- attack  envelope  portion,  except  for  the  linearized 
calculation. 

If  NPASS  = 1,  only  the  initial  conditions  of  the  integration  have  been  computed, 
and  the  convective  heat  pulse  used  only  for  the  determination  of  an  output 
point  is  initialized  (see  the  statements  following  302).  A transfer  is  made  into 
the  portion  of  the  main  program  which  generates  the  output  tables  (Statements 
222  to  105)»  thus  making  the  initial  conditions  the  first  line  of  the  tabular 
program  output.  If  NPASS  = 2 for  each  time  step,  the  integrals  for  the 
linearized  dynamics  and  the  output- determining  heat  pulse  are  integrated 
for  each  time  step  by  the  trapezoidal  method  (Statements  3 20  to  338).  If 
I2BIG  > 0,  the  linearized  dynamic  integrals  are  not  computed  since  the  senti- 
nel indicates  that  the  angle- of- attack  envelope  computed  by  the  linearized 
method  is  unreasonably  large.  If  ISKIP  < 0,  the  angle-of-attack  envelope  is 
being  computed  from  the  5 dynamics  differential  equations,  and  the  linearized 
dynamics  integrals  are  not  evaluated.  The  statements  between  7010  and 
7011  provide  output  for  each  time  step  (IPRINT  _>  1). 

After  7011  are  ten  tests  used  to  select  the  time  steps  which  appear  m the 
output  tables.  The  criteria  for  an  output  point  are  as  follows:  TIM  = TZER0 
(initial  point),  TIM>TST0P  (maximum)  value  of  independent  variable  TIM), 

X (3)  < ZST0P  (impact),  Mach  number  < 5 and  the  difference  from  the  last 
output  line  (XM0)  > DMK;  only  if  the  approximate  heat  pulse  is  greater  than 
1 Btu/ft^-sec,  do  the  following  tests  determine  an  output  point,  velocity  dif- 
ference from  last  output  velocity  > VTEST,  flight  path  angle  (y)  difference 
from  last  output  point  > GTEST,  altitude  difference  from  last  output  point 
> ZTEST,  approximate  convective  heat  pulse  integral  difference  from  last 
output  point  > QSTST.  Statement  222  begins  the  calculation  of  the  output 
table  for  TIME  (I)  = TIM,  where  I is  the  line  number  in  the  output  tables. 


-91- 


The  statements  to  358  compute  a Mach  number  index  for  use  at  the  end  of  the 
program  in  interpolating  data  at  some  input  value  of  Mach  number  (PRTMAC). 
QDY  (I)  is  computed,  and  the  statements  to  1076  compute  the  interpolation 
index  if  a specified  dynamic  pressure  (QDYPRT)  is  to  be  used  instead  of  the 
Mach  number.  Next  the  y , Z>  p,  t,  and  Mach  tables  are  filled,  plus  the 
natural  frequency  (FRNAT).  If  the  dynamics  differential  equations  have  been 
deleted  at  peak  dynamic  pressure  {NITWIT  = 0,  ISKIP  =1),  and  the  linearized 
integrals  are  not  too  large  {TGMIG<  15,  12 BIG  < 0),  the  linearized  dynamics 
integrals  are  evaluated  and  the  angle- of- attack  envelope  and  N/W  based  on 
that  envelope  value  are  computed  by  Statement  8005.  I2BIG  is  set  = 1 if 
the  angle -of-attack  envelope  value  from  the  linearized  calculation  is  > 90 


Next  the  Reynolds  number  RTX(I)  and  enthalpy  HRT(I)  are  calculated,  along 
with  the  nonequilibrium  distance  (DNE)  and  distance  to  peak  nonequilibrium 
intensity  (DSP),  if  the  velocity  is  greater  than  VST£)PQ(VSD),  the  dynamic 
pressure  is  > 1,  and  1=1  (first  output  line)  transfer  is  made  to  Statement 
1999,  for  the  equilibrium  radiation  heating  calculation,  the  computation  of 
the  nonequilibrium  radiation  by  subroutine  NONEQU,  the  computation  of  the 
stagnation  point  convective  heating  {dependent  upon  the  density  ratio1  R0RZ 
computed  with  the  radiation  heating)  and  the  call  * of  CKTRB  to  see  if  the  local 
Reynolds  number  REYS  is  > REYT.  If  REYS'>'REYT,  transition  has  occurred, 
and  the  time  for  transition  is  stored  as  TIMTR.  A transfer  is  made  outt, 
of  the  radiation  heating  block  to  Statement  1*997.  If  the  velocity  > VST0PQ, 
dynamic  pressure  > 1,  andl>l,  transfer  is  m‘ade  to  Statement  2002.  If 
IQRGO  = 1,  TIM0D  is  calculated  and  IQRG<£>  = 2.  Ther'equilibrium' and  non- 
equilibrium  radiation  is  computed  by  C0OL- and  NONEQU,  the  stagnation 
convective  heating  is  calculated,  and  the  same  calculation  done  for  REYS* to 
check  for  transition.  On  occasion  the  radiation  heating  calculation  fails  to 
find  a solution  {NO  VALID  S0LN.  m output).  This  is  recognized  by  the 
fact  that  the  equilibrium  radiation  from  C0OL,  QRIG,  has  the  value  0.  When 
this  happens,  the  index  MINUS  is  incremented  for  each  such  case  and  as 
soon  as  a valid  solution  is  given  linear  interpolations  are  done  to  compute 
the  appropriate  values  of  laminar  and  turbulent  convective  heating  and  equil- 
ibrium radiation  heating  {Statements  2()07  to  2009).  The  nonequilibrium 
radiation  is  then  based  on  the  interpolated  value  of  the  equilibrium  radiation 
when  NCSNEQU  is  called  (after  Statement  3 052).  These  interpolations  are 
thought  reasonable  because  of  the  fact  that  experience  indicates  NG$  VALID 
S0LN.  generally  occurs  away  from  peak  heating  and  in  areas  where  the 
radiation  heating  is  quite  small.  The  interpolation  requires  the  continuous 
updating  of  TIM0D  for  the  interpolation  (Statement  2009).  If  149  lines  of 
output  have  occurred,  an  attempt  is  made  to  eliminate  all  addition  points 
from  the  output,  except  for  impact  (Statement  8001).  This  does  not  invaria- 
bly work.  Statement  105  ends  the  integration  loop  (see  ADAMS4  des- 
cription). 
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Except  for  the  case  DELTA- T T00/ SMALL,  (Statement  130),  the  output 
tables  from  the  entire  trajectory  are  now  printed  with  appropriate  headings 
(Statements  1520  to  1660).  First,  however,  all  values  of  X/W  (X0W  (I)), 
and  the  values  of  laminar  and,  if  applicable,  turbulent  heating,  which  occur 
after  the  last  time  C00L  was  called,  are  computed  m the  loop  ending  3043. 
The  heating  integrals  are  also  computed  in  this  loop  by  a trapezoidal  approx- 
imation. The  reason  for  the  QSTAR  and  SQS  calculation  is  that  the  restric- 
tions V>VST0PQ  or  dynamic  pressure  > 1 usually  deletes  the  radiation 
heating  before  impact  in  order  to  save  machine  time  calculating  low  radia- 
tion. The  aerodynamic  heating,  however,  depends  upon  the  density  ratio 
computed  in  the  radiation  block  and  hence  the  approximation  is  that  this 
density  ratio  is  constant  between  the  last  time  radiation  heating  is  computed 
and  the  impact  time. 

The  values  of  the  heating  integrals  are  printed  after  Statement  400,  and  if 
interpolations  are  asked  for  at  a specific  Mach  number  (or  dynamic  pres- 
sure), the  interpolations  are  completed  and  the  answers  written  out  in  sub- 
routine INTRP.The  transition  time  is  noted  between  3060  and  3063,  and 
indication  of  the  deletion  of  the  five  dynamics  differential  equations  is  pro- 
vided by  Statement  3057  if  such  deletion  occurred. 

IF  IPHEAT  > 1.0  punched  cards  are  provided  on  Tape  7 which  includes 
tables  of  TIME,  QS,  QSTAR,  HM/RTQ5,  and  QRNE  suitable  for  direct  use 
m the  heat  shield  calculation. 

A transfer  is  then  made  to  Statement  500,  to  begin  the  next  case. 

E.  SIGNIFICANT  EQUATIONS 
1.  MAIN 


a.  Molecular  Weight 


M « XM  = 28  . XN  + 32  . X0  + 44  * XC  + 40  . XA  (24) 

b.  Specific  Heat 

CP/R  = CP0R  = 3.5  (XN  + X0)  + 4 • XC  + 2 5 • XA)/XM 

c.  Velocity  Exponent  for  QS  (I) 
bLAM  = BLAM  = 3.909  - 0.0299  • XM 
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d.  Stagnation  Enthalpy 


HM/RTq  = ENT0T  = V2/|64.4.778.  - 

e.  Dynamic  Pressure 

qj  = DYNPR  * -i-p  V2  (70°) 

f.  Ballistic  Coefficient  ’ > 

M/CdA  = EM0CDA  = SMM/(Cpp  • A),  Cqq  **  drag  coefficient  at  peak  q^ 

g.  Normal  Force,  when  Coefficients  = F { a,  M) 

ItyW  = EN0W(I)  = CN  • QdY(D  * A/C32.16  * SMM),  CN  from  CNFA  (3  039) 

Qpy  (1)  = dynamic  pressure  in  output  table 

h.  Normal  Force  when  Coefficients  ^ F (M) 

N/AP  = EN0W(I)  = (CLAD  + CDD)  • ALENV(I)  - QDY(I)  - A/(57.3  -32.16- SMM)  (8007) 

CLAD  and  Cpjpj  = and  Cp  at  same  MACH  number,  (ALENV  (I)  = angle-of-attack 

envelope  in  output  table). 

i.  Natural  Frequency 

FREQ  = FRNAT(I).  = (-  CMAD  - QDY  (I)  • A - D/ZIY)  1/2  (1076) 

CMAD  = Cm  at  same  Mach  number,  ZT Y = moment  of  inertia. 
a 

j.  Ambient  Reynolds  Number 

' REY  = RTX  (I).  RH0  . V (I)  • D/VIS,  VIS  = viscosity  at  temperature  TEMP  (8005) 

k.  Axial  Force 

X/W  = X0W  (I)  « CDD  - Qjjy  (I)  . A/(32.16  SMM)  where  Cpjpj  = Cjj  at  same  Mach  number 

l.  Stagnation  Point  Convective  Heating 


1.987  - 454  - 273.16  ^ XM  - CPi 
252  • XM  / + 273.16 


TEMP (298) 
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Qs  = Qg  (I)  = 


1 

— D 

1 


il/2 


(1.1  + 0.075  XM)  104  • y 


(RH0) 


VLG  = velocity  gradient  evaluated  at  same  density  ratio 


A LAM 
(3041) 


m.  Convective  Sonic  Point  Heating 


QstAR  = Qt  W = Qs  ^ ^ laminar 


Qstar 


5.4x105THF  ATRB  / V\  BTRB 

(RHO)  ( — 3-1 

((sstar/d)  * d)  °-2  \iov 


if  turbulent 


(3054) 


Linearized  dynamics  - no  spin 


n.  Angle -of -Attack  Envelope  - no  spin 


ENVPQ  (-CMAPK  • PKDYN)  1/4  ^ _ 

ALENV(I)  = * EXPF 

((—  CMAD  • Qdy  ®)1/4 

f-  CLA  +—  - -aiQ  \ V • dt 
\ 2 SIGMA ) 

where  ENVPQ,  - CMAPK,  and  PKDYN  are  the  angle -of- attack  envelope, 
and  1/2  pV2  at  peak  dynamic  pressure,  CMAD  and  QDY  (I)  are  the 
Cm  = f(M)  and  1/2  pV2  at  the  ith  time  m the  output  table,  and  the  ex- 
ponential argument  is  integrated  trapezodially  with  CMQ  = = f(M) 

and  SIGMA  = ZIY/SMMD2  tQ  is  the  trajectory  time  at  the  beginning  of  the 
linearized  calculation,  t is  the  i^1  time  in  the  output  table,  where  t1> 

t0- 


o.  Linearized  Dynamics,  Spin  Correction 
Angle-of-attack  envelope,  spin: 

p.  Angle  of  Attack,  Spin 

a = ALENV  (I)  = ~ (^NOSPIN  ^DUM  ' EXPF  TGMIG  + DUM  EXPF  7™  (8007) 


-95- 


TGMIG 


RH0  . A * V 

ZIX  / 

• I CLA 

CMQ  \ 

4SMM 

ZIY  \ 

+ 2 

• SIGMA/ 

RH0  ► A • V2 

/ — CMA  \ 

*2 

i 1/2 

2 • SMM.  D 

V SIGMA  / 

4 

V ziYy 

DUM  = 


RH0PK  • A • VYPK2  ( — CMA  ^ n 2 fZlX  ^ 
2 • SMM  D * V SIGMA/  + 4 \ZIY / 

‘ RH0  • A VYPK2 
2 - SMM  • D 


RH0  • A • V2 

( -CMAD  ^ 

2 • SMM  . D 

V SIGMA  / 

RH0  • A • V2 

/ — CMAD  ^ jt2 

/ZIX\2 

2 . SMM  • D 

V SIGMA  / + 4 

\ ZIY/_ 

For  the  integral  TGMIG,  RH0,  V,  CLA,  CMQ,  CMA,  are  the  density, 

velocity,  Or  , cm  » ^ ( evaluated  as  f(M))  for  each  time 

J a q a 

SIGMA  = — ^ . For  DUM,  RHOPK,  VYPK,  CMA  are  the  density 

SMM  • D2 

velocity,  and  Cm  evaluated  at  peak  dynamic  pressure.  RHO,  V,  CMAD 
are  these  quantities  evaluated  at  the  i^1  time  in  the  output  table,  tj>  tD 
where  tQ  is  the  trajectory  time  at  the  start  of  the  linearized  calculation. 

q.  Atmosphere  Constants 


L0  = XLO  = — XLl  • GSL/CP 
ZST  = ZsT  = (TST -TSL) /XLO 


pth  * RH0TH  = PTH  • XM/(AR  • TST ) 


pST 


RH0ST 


(RHflSL  TSL 
TST 


— 1 

j XM  GSL  /ZST  RSL  \ , /j 

'RSL  (TSL  + XLO  ZST)' 

y 

cl 

|AR  (TSL -XLO  RSL)  \ RSL  + ZST/  ' \| 

TSL  (RSL  + ZST) 

TSL -XLO  RSL  /( 

XM  • 
AR  • ' 


GSL  • RSL  ♦ ZST 
TST  * (RSL  + ZST) 


p = ROBAR  = RH0ST  • 


AR  • TST  • RSL 


Z-pH  = ZTH 


R0BAR 

RH0TfT 


XM  ♦ GSL  • RSL  - In 


R0BAR\ 

RH0TH/ 


AR  TST 


2.  DERQO 

Atmosphere 


Z < ZST 

T = TEMP  = TSL  + XLO  • Z 


RH0SL  TSL 


\ XM  GSL  (Z  RSL  2 

RSL  (TSL  + XLO  Z) 

1 H 

|AR  (TSL -XLO  RSL)  \RSL+Z 

TSL  (RSL +Z) 

TSL -XLO  RSL/J 

ZST  < Z < ZTH 
T = TEMP  = TST 


XM  • GSL  • RSL 


RH0  = R0BAR  /e 


AR  • TST  - (RSL 


+ Z)J 


Z>ZTH 

T = TEMP  = TSL  + XL2  (Z-ZTH) 


RH0TH  TST 


( XM  GSL  ( Z-ZTH  RSL2  \ , 

' TST  + XL2(Z  - ZTH)‘ 

1 

t K 

e (AR  (TST  - XL2  (RSL  + ZTH))  V(RSL  + Z)  (RSL  + ZTH)/ 

(RSL  + Z)(RSL  + ZTH)  _ 

TST  - XL2  (RSL  +ZTH)J 

f 
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~AR  TEMP  • CP0R  ~|1/2 

XM  CP0R-1-J 


M = XMAC  V/SMA 


V,  y , Z,  Q,  R,  ip , 6,  <p  = X ( 1 — 8)  respectively 
~ = DERX(3)  = V • sin  (y) 


dt 


dV 


— CSUBD  — RH0  V2  A - SMM  * GSL 
2 


CSUBD  = Drag  coeff.  f(M) 


i.  r 

dM  [ 

1 | SMM-  cos ( 

M V |_  RSL  + 


(y)  vz 


(r^7t)  *sin(y)][ 

(tSTTz)  cosW] 


particle  trajectory,  Cp  = f (M)  only 
sin  (a)  = SAL  = sin  (6)  cos (tp)  ‘ cos(<£)  + sin(ip)  • sin (<£) 


particle 

trajectory 


sin  (/3)  = SBE  = sin  (ip)  cos  («£)  - sin  ($)  cos  (if,)  • sin  {<£) 

->  o,  i/2 

sin  («')  = SALPHA  = [ sin^  (ip)  + (cos  (^)  sin  (5))  ] 


cos  (a')  = CALPHA  = cos  (6)  cos  (ip) 


a'  = ALPHA  = tan-1 


(SALPHA 
CALPHA 


= DERX(l)  = above,  but  CSUBD  = CX  CALPHA  4-  CN  SALPHA, 

dt  dt 


CX  and  CN  = f (a',  M) 


1 |~ SMM  * cos  | 

JMM  - V [ RSL  + 


(y)  vz 


a(d)  A-RH0  V2 


- - SMM  GSL 


/_RSL_V 

l RSL+2y 


5 (y)\ 


trajectory 

with 

vehicle 

dynamics 

from  three 

moment 

equations 
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dQ 

dt 


CM,-  SAL  D-CMQ-Q 


SALPHA 


= DERX(4>  =|i-  RH0  - V2  A - D 
+ (ZIY-ZIX)VP  -R  + SP1NER  SBE-P-ZIX  GD0TT 
[sin  (ifi)  sin(0)  cos  ( <f> ) — cos  (iff)  • sin  (^)]j  • 


2-  V 


Q ZIY-CLA 
SMM  - V - D 


dR 

IT 


DERX(5)  = 


r 

)— RH0-  V2  - A-D 
\2 

CM-SBE  D CMQ  R 

R-  ZIY-CLA 

SALPHA  + 2 • V 

SMM-V  D 

1 CX  ZCG^D  I 


+ (ZIX  — ZIY)  • P Q - SPINER  - SAL  + P--  ZK  - GD0TT  . 

[cos  (^r)  cos(<£)  + sm  (ifr)  sin(0 ) sin($)] 

where, 

-P.2K  RH0  V A - [CN  - CALPHA  - CX  • SALPHA] 

SPINER  = t 

2 • SMM.-  SALPHA 


(8001) 


and. 


GD0TT 


GSL 
V ' 


RSL 
RSL  + Z 


v2 


- cos  (y) 


d xfj 
dt* 


DERX(6)  = 


R ♦ cos  (0)  + Q - sin  (0) 
cos  (0) 


d0 

dt 


DERX(7)  = Q cos  R - sm($ 


d A 

— - = DERX(8)  ^ P + DERX(6)  * sin  (0) 
dt 


3.  CQj>Qi>L  - (No  Significant  Equations) 

4.  N^NEQU 


DELDG  < DSP 


QRNE  =—  • QR  - XIRN 


^deldg\  . 

r*/ 
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DSP  < DELDG  < DNE 
QRNE  = QR 


2 DELDG  2 DELDG 


—i — fs 

J 2 DELDG  ^0 


DNE  < DELDG 


nn  . 1 DSP  1 DNE  „ „ DNE 

• QR  | 1 — — — — + XIRN 

1 2 DELDG  2 DELDG  2 DELDG 


5.  CKTRB 


REYS  = — — * R0RZ  • R0S0R0  SST  . 
VIS 


(2  ENT0T  24  4522  106 

1 R0RZ  XM 


1 1/2 


(DNE  - DELDG)' 
(DNE  - DSP)  j 


(4) 


R0  = ambient  density,  R0RZ  from  radiation  calculation,  SSTOS*  from  input, 
ENT0T  = stagnation  enthalpy,  XM  = molecular  weight. 


y = GAMMA  = (R0RZ  + 1)/(R0RZ-  1) 


Ps/p  = R0S0R0  = 


1/GAMMA  - 1 


y GAMMA  + 1 J 
VIS  = viscosity  at  temperature  T*  = TSTR  - 
GET CL A 


( I 

\ GAMMA  + 1 j 


TSSZ,  TSSZ  = stagnation 
temperature 


CL  (a,  M)  = 5 73  { 2 CT  (a  + 10,  M)  ~ — C.  (a,  M)  — — Cr  (a  + 20,M)i 
a L 2 L 2 L 


(1007) 


CL  = CN  * cos  (a)  - CX  sin  (a) 

6.  HEAT 

Same  as  1883,  but  inverse  density  ratio,  b/a  correlation  for  detachment 
distance  replaced  by  (input)  detachment  distance  density  ratio  correlation 
in  table  look-up  after  Statement  502.  GETH,  HVST,  GETK,  GETQ,  F1NDH, 
FINDT,  Z0NES  - Same  as  1883 
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I.  INTRODUCTION 


A.  GENERAL  DESCRIPTION 


This  program  computes  the  aerodynamic  coefficients  of  axisymmetric  shapes 
as  a function  of  angle  of  attack  utilizing  impact  (Newtonian)  theory.  In  addition, 
radii  of  gyration  are  computed  based  on  uniform  densities  forward  and  rear- 
ward of  the  specified  center -of- gravity  location.  The  general  inputs  required 
include* 


1.  Shape  geometry, 

2.  Mass  and  center -of -gravity  location,  and 

3.  Desired  angle  of  attack  range. 

Option  is  provided  for  determining  the  center -of -gravity  location  based  on  speci- 
fied minimum  values  of  the  static  margin  and  static  moment  coefficient  deri- 
vative. 

Configurations  possible  are  bodies  of  revolution  containing  up  to  10  sections  of 
various  geometries,  including  spherical  segments,  cones,  tori,  cylinders,  and 
an  optional  section  which  may  be  a tension  shape  or  a general  shape  input  by 
coordinates.  A typical  shape  containing  10  basic  sections  is  illustrated  in 
Figure  1.  Figure  2 shows  the  alternate  geometry  for  the  tension  shell  and 
the  general  shape. 

The  program  output  includes  the  axial,  drag,  lift,  and  normal  force  coefficients, 
the  static  and  pitch  damping  moment  coefficients,  the  lift  curve  slope,  and  the 
center  of  pressure.  The  aerodynamic  coefficient  data  generated  are  sufficient 
to  facilitate  the  inputs  to  Program  1880.  The  lift  curve  slope  is  utilized  m 
Program  1880,  but  it  is  not  necessary  as  an  input  to  that  program  as  it  is 
computed  from  the  axial  and  normal  force  coefficients. 

B . CAL  CU  LATION  MODEL 

1.  Newtonian  Coefficients 

Using  the  coordinate  system  shown  in  Figure  3,  consider  an  arbitrary  sur- 
face m three  dimensional  space  (g  = g(x  , y,  z)  = 0)  which  is  continuous  m 
the  first  derivative  in  the  region  of  interest.  The  unit  vector  which  is 
normal  to  the  surface  at  any  point,  P,  and  which  is  positive  into  the  sur- 
face is  given  by 

n = - vg/IVg|  ■ 
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SECTION 

1 NOSE  SPHERE 

2 Rsn  TORUS 

3 CONE  (SEE  FIGURE  2 TOR  ADDITIONAL  OPTIONS) 

6 Rsc  TORUS 

7 CYLINDER 

8 FLARE 

9 FORE  R3B  TORUS 

10  AFT  Rsb  TORUS 

11  An  CONE 

12  AFT  SPHERE  (RA) 

13  BASE  (Rt) 


Figure  1 VEHICLE  SHAPE  PARAMETERS 


TENSION  SHELL  OPTION  {SECTION  4) 


CONTINUE  AS  ON 
PREVIOUS  FIGURE 


$-  TENSION  SHELL  INPUT  PARAMETER 

R3-  BASE  RADIUS  OF  TENSION  SHELL  (NOT  INPUT) 


GENERAL  SHAPE  OPTION  (SECTION  5) 


<Xn,  Rn  ). 


(x2>r2  ) 


52Gifi3G>x.R_  GENERAL  SHAPE  INPUT  PARAMETERS 
n * 25 


Figure  2 TENSION  SHELL  AND  GENERAL  SHAPE  GEOMETRIES 
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Denote  the  component  of  the  relative  wind  vector,  V that  lies  along  n as 
Vn  , the  normal  velocity  vector.  Hence, 

Vn  - ( V • n ) n . 


Figure  3 COORDINATE  SYSTEM  FOR  CALCULATION  MODEL 
The  Newtonian  pressure  approximation,  used  herein  is  then  given  by. 


where, 

V-  |vj.  ♦ 

Defining  dCF  as  the  element  of  the  vector  force  coefficient  acting  normal  to 
the  surface  at  point  P and  Cp  as  the  sum  of  all  such  elements. 
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and,  inasmuch  as 


dS  = ndS, 


It  follows  that  the  aerodynamic  normal  and  axial  force  coefficients  are  found 
from: 


cx  = I * Cp,  and 

CN  = k • CF,  respectively. 

We  define  a position  vector  7 as  the_vector  extending  from  the  origin  to  the 
point  P.  The  moment  vector  arm,  l is  defined  as  that  vector  extending 
from  the  center  of  gravity  of  the  vehicle  to  the  point  P.  Thus, 

l = r — d, 


where  d is  the  vector  position  of  the  center  of  gravity. 


The  differential  moment  about  the  center  of  gravity  is  found  from: 


l x d Cp 


dCM  = ■ 


Integrating, 


which  may  be  evaluated  as 


§ G ■ -■)' 


( l x n ) dS. 


The  aerodynamic  pitching  moment  coefficient  is  found  from: 

cm  = J * 
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The  velocity  at  point  P consists  of  two  parts,  one  part  from  the  velocity 
of  the  vehicle  and  one  part  from  the  rotation  of  the  vehicle  about  its  center 
of  gravity.  Hence, 

v = vM  - z x r. 

where  a is  the  total  vector  angular  rate  of  the  body  about  its  center  of 
gravity. 

Developed  expressions  for  the  forces  and  moments  on  conic  section  are 
readily  available,  e.  g.  , see  References  1 through  3. 

The  computer  program  treats  all  sections,  except  the  spherical  nosecap 
section,  as  consisting  of  a series  of  conical  frustra.  The  effects  of 
shadowing  of  the  incident  flow  are  included  to  ensure  that  the  local  pressure 
coefficient  is  never  less  than  zero  (negative). 

2.  Radii  of  Gyration 


A simplified  method  for  estimating  the  radii  of  gyration  is  included  in  the 
program  by  considering  the  vehicle  to  be  of  uniform  density  fore  and  aft 
of  the  center  of  gravity  as  depicted  m Figure  4.  Specifying  the  desired 
center -of-gr a vity  location  and  the  total  vehicle  mass,  then  by  elementary 
volume  considerations,  the  relative  densities  fore  and  aft  of  the  center 
of  gravity  can  be  determined  and  then  the  pitch  and  roll  radii  of  gyration 
can  be  computed. 


Figure  4 RADIUS  OF  GYRATION  MODEL 
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3.  Center  of  Pressure 


The  integration  of  the  pressure  forces  over  the  complete  surface  of  the 
vehicle  yields  the  component  forces  on  the  vehicle  and  the  line  of  action 
of  the  resultant  force.  Location  of  the  center  of  gravity  on  the  line  of 
action  eliminates  any  moments  on  the  body  arising  due  to  aerodynamic 
forces,  in  which  case  the  body  is  neutrally  stable.  The  intercept  of  the 
line  of  action  and  the  body  longitudinal  axis  is  designated  as  the  center  of 
pressure.  Restricting  the  forces  and  moments  to  the  static  values,  i.e., 

TJ  = 0,  and  with  the  center  of  gravity  on  the  axis,  the  center  of  pressure 
as  given  m the  output  (XCP)  is  then  defined  as 

XCP  -<Cm>o 

~5~"  = “ cN 

evaluated  about  the  nose  of  the  vehicle 


equal  to  (2  Rc)  throughout  all  the 


where  (Cm)Q  is  the  pitching  moment 
At  zero  angle  of  attack, 

(-Cm)  -Cm„ 

o a 

lim  = 


ACP 


The  reference  length  (D)  is  taken  as 
programs. 


4 Moment  Transfer 

The  center  of  pressure  is  independent  of  the  center-of -gravity  location 
but  the  moment  coefficients  must  be  modified  if  the  center-of-gravity  loca- 
tion is  changed.  Program  1880  provides  for  automatic  static  moment 
transfer,  however,  to  transfer  the  damping  moment  coefficient,  Program 
1881  must  be  rerun  for  the  new  center -of- gravity  position. 

5 . Pitch  Damping  Moment  Coefficient 

The  pitch  damping  moment  coefficient  Cm^  is  based  on  the  normalized  pitch 

-»  0,  i.  e. , 


rate  qD/2V  and  is  evaluated  as 


m 
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C.  PROGRAM  LIMITATIONS 


Program  limitations  are  listed  below: 

1.  Coefficients  are  based  on  the  Newtonian  pressure  distribution,  with  the 
assumption  that  each  section  of  the  body  has  self- shadowing,  but  does  not 
cast  shadows  on  other  sections. 

2.  Radii  of  gyration  are  based  on  uniform  densities  fore  and  aft  of  the 
center  of  gravity,  the  ratio  of  these  densities  being  determined  by  the 
specified  center -of- gravity  location. 

3.  The  effect  of  an  off-axis  center -of-gravity  location  can  be  accounted 

for  m the  coefficient  calculation,  but  is  not  reflected  in  the  radii  of  gyration. 

4.  Configurations  are  limited  to  axisymmetric  shapes  composed  of  spherical 
segments,  cones,  cylinders,  tori,  and  an  optional  section  which  may  be  a 
tension  shell  or  a general  shape  specified  by  up  to  25  consecutive  points 

in  rectangular  coordinates. 

5.  The  Newtonian  flow  approximation  assumes  that  the  normal  component 
of  momentum  is  lost,  while  the  tangential  component  is  unchanged.  All 
viscous  forces  and  base  pressures  are  neglected. 

Comparisons  have  been  made*  between  Newtonian  predictions  and  hypersonic 
experimental  aerodynamic  characteristics  for  various  sharp  and  blunt 
bodies  of  revolution. 

In  general,  the  theory  was  found  to  agree  quite  well  with  experimental  results 
for  sharp  nose  cones  and  for  configurations  having  large  blunted  noses  and 
steep  surface  slopes.  However,  agreement  between  theory  and  experiment 
generally  is  poor  for  the  more  slender  (0  < 20  degrees)  slightly  blunted 

conic  bodies.  Real  flow  phenomena,  such  as  viscous  effects,  sharp  corner 
effects,  gas  composition,  gas  kinetics,  and  heat  transfer  are  all  neglected 
by  Newtonian  theory  and  may,  in  some  cases,  have  a sizable  effect  on  the 
aerodynamic  characteristics  of  the  configuration  and  the  adequacy  of  the 
theoretical  predictions. 

The  agreement  between  theory  and  experiment  can  be  improved  by  using  the 
actual  stagnation  pressure  coefficient  behind  the  normal  shock  rather  than 
the  Newtonian  value  of  two  (2).  The  stagnation  pressure  coefficient  can  be 
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estimated  by  the  following  relation: 


CP  = 


y + 3 

JTT 


where  y is  the  ratio  of  specific  heats  {C^/Cy). 

6.  The  tension  shell  equations  contained  in  Program  1881  are  derived 
in  Reference  4,  and  correspond  to  the  case  of  zero  hoop  stress  and  a New- 
tonian pressure  distribution.  A comparison  of  the  numerical  integration 
results  for  the  shape  coordinates  with  the  results  of  Reference  4 are  given 
in  Table  I below. 


TABLE  I 

TENSION  SHELL  CHECK 


Shape 

Length/Base  Radius 

A^ 

0 

Ref.  4 

1881* 

0.  5 

62.  50 

0.343 

0.343 

1.  2 

33.  50 

0.  939 

0.  943 

1.6 

22. 835 

1.  413 

1.  417 

*NDIV  = 20.  0 
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II.  USAGE 


A.  INPUT  DEFINITIONS 


Name 

Preset 

Value 

Symbol 

Parameter 

Units 

Al,  AIL 
A2,  A2L 
A3,  A3L 

0.  , 

0.  , 

0.  , 

First  and  last  values  of  angle 
of  attack  for  each  range  of 
printout,  these  are  all  used 
only  when  the  printout  require- 
ments differ  for  each  range  of 
angle  of  attack. 

degrees 

! 

BETA 

0. 

£ 

Initial  angle  for  third  section 
in  case  of  tension  shell. 

degrees 

CASE 

Identification  number  for  case. 

CM  AG  ( 1 ) 

0. 

C 

m 

a0 

Minimum  pitching  moment 
derivative  at  = 0 degrees. 

per  radian 

CM  AG  (2) 

0. 

C 

m 

a 180 

Minimum  pitching  moment 
derivative  at  cv=  180  degrees. 

per  radi.ii' 

DAI 
DA  2 
DA  3 

o o o 

1 

Intervals  of  angle  of  attack 
for  which  printout  is  desired; 
three  ranges  can  be  requested 
if  data  are  needed  more  finely 
over  a specific  angle  of  attack 
range.  Hence,  the  interval  of 
printout  is  specified  jointly 
with  the  range  of  angle  of 
attack  for  which  the  printout 
frequency  is  desired. 

degrees 

i 

DATE 

Date  identification  number. 

DERDEL 

. 005 

Interval  of  independent  variable 
used  to  evaluate  derivatives. 

GS0 

l 

0. 

i 

This  symbol  is  input  1.0  when 
the  third  section  is  a general 
shape;  otherwise,  need  not  be 
input. 
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2.  Contour  angles  ( 6 ) are  measured  relative  to  free  stream,  progressing 
aft  of  the  nose.  Positive  values  indicate  increasing  body  radius,  negative 
values,  decreasing  radius  (e.g.,  0^is  negative). 

3 Sections  may  be  omitted  provided  the  starting  point  of  each  section  is 
compatible  with  the  final  point  of  the  previous  section.  The  first  and  last 
points  on  the  body  must  be  on  the  axis. 

4.  If  several  cases  are  run  on  a single  memo,  only  changed  inputs  need 
be  specified  (inputs  which  are  not  repeated  must  be  set  = 0) 


5.  The  tension  shell  option  is  specified  by  inputing  RN,  BETA,  RC,  and 
RSC  the  defining  parameters  of  the  tension  shell  as  shown  m Figure  2. 

6.  In  the  general  shape  option  (GS0=  1.  0),  up  to  25  points  may  be  speci- 
fied along  the  desired  contour.  In  addition,  the  initial  slope,  TH2G  (which 
defines  the  final  point  on  the  preceding  arc)  and  the  final  slope,  TH3G,  must 
be  specified. 

7.  The  center  of  mass  may  optionally  be  determined  by  specifying  re- 
straints on  the  stability  at  0-  and  180 -degree  angles  of  attack.  The  pro- 
gram checks  the  computed  XCG  to  ensure  a single,  stable  trim  point  from 
0-  to  180 -degree  angles  of  attack.  This  option  is  activated  by  specifying 
XCG  = 0,  and  inputting  the  restraints  on  SM,  CMAG  (1),  and  CMAG  (2) 


8.  The  length  and  mass  units  of  inputs  called  for  in  the  definitions  are  feet 
and  slugs.  However,  any  consistent  system  of  units  maybe  employed  with 
corresponding  changes  in  the  units  of  the  outputs. 

9.  For  shapes  with  flat  bases,  a value  of  R^  must  be  specified  if  0^  = -90. 

10.  An  input  form  is  provided  on  page  17  for  the  user.  All  the  information 
shown  is  keypunched,  provided  the  variable  is  specified.  All  numerical 
values  have  decimal  points. 

11.  A brief  bibliography  of  experimental  measurements  of  aerodynamic 
coefficients  is  provided  at  the  end  of  the  text.  These  data  can  be  used  to 
improve  the  theoretical  values  obtained  from  Program  1881  where 
applicable. 
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External  Internal 

Name  Name  Symbol 

ALPHA  ALPHA 

CD  CD(  1)  CD 

CL  CL(  1)  C^ 

cl/cd  CL(1)/CD(1)  cl/cd 

CLA  CLA  Cr 

L-i 

CM  CM1  C 

m 

CMQ  CMQ  C 

m 

q 

CN  CN1  CN 

CX  CX 1 cx 

R R r 

RGX  /D  RGXDD 

RGY  ID  RGYDD 

PA 


RH0A 


RH0A 


Parameter 


Units 


Angle  of  attack.  degrees 

Drag  coefficient  as  a function 
of  angle  of  attack. 

Lift  coefficients  as  a function 
of  angle  of  attack. 

Lift/Drag  ratio  as  a I unction 
of  angle  of  attack. 

Derivative  of  lift  coefficient  per  radian 

Pitching  moment  coefficient 
as  a function  of  angle  of  attack. 

Damping  coefficient.  per  radian 

Coefficient  of  normal  force 
as  a function  of  angle  of 
attack 

Coefficient  of  axial  force  as 
a function  of  angle  of  attack. 


Ordinates  of  all  points  computed 
along  the  body  surface.  feet 

Radius  of  gyration  about  roil  axis 
as  a fraction  of  diameter 

Radius  of  gyration  about  pitch 
axis  as  a fraction  of  diameter. 

Density  of  vehicle  aft  of  cemer- 

of- gravity  position.  slug/ft' 


RH0N 

RHtf)N 

% 

Density  of  vehicle  forward  of 
center-of-gravity  position. 

slug/ft^ 

X 

X 

X 

Abcissas  of  all  points  computed 
along  the  body  surface. 

feet 

XCG 

GX 

Center-of-gravity  position 
measured  from  nose. 

fe  et 

XCG  /D 

XCGDD 

xcg/d 

Center-of-gravity  distance  as  a 
fraction  of  capsule  diameter. 

XCP/D 

XCPDD 

xcp/d 

Center-of-pressure  distance  as  a 
fraction  of  capsule  diameter. 

D.  SAMPLE  PROBLEM 

1.  Statement  of  Problem 

Determine  the  Newtonian  coefficients  and  estimated  radii  of  gyration  for  a 
blunt  cone  configuration.  The  vehicle  parameters,  range  of  angle  of  attack, 
and  XCG  location  are  to  be  prescribed  as  input.  The  final  plot  of  the  con- 
figuration, as  performed  automatically,  is  shown  in  Figure  5. 

2.  Computer  Input  Form 

The  computer  input  form  containing  all  the  necessary  input  data  to  be 
keypunched  is  shown  on  page  18.  All  the  input  on  this  form  is  written 
with  decimals. 

3.  Output 

The  output  is  given  on  page  19  . The  data  keypunched  is  shown  in  the  output 
and  should  be  verified  with  the  input  form.  An  array  of  vehicle  coordinates 
(X,  R)  are  given  which  are  useful  for  drawing  the  configuration;  the  first 
coordinates  given  correspond  to  the  last  point  on  the  nose  cap,  which  is 
spherical. 

The  coefficient  data  has  two  rows  for  each  angle  of  attack;  the  first  row 
corresponds  to  the  XCG  at  the  nose  and  the  second  row  provides  the  moment 
data  for  the  XCG  specified.  Following  the  coefficient  data,  are  the  densities 
fore  and  aft  of  the  XCG  necessary  to  yield  the  desired  XCG  location,  and 
also  the  desired  radii  of  gyration  are  given.  A plot  of  the  vehicle  coordinates 
can  be  obtained,  as  shown  on  page  16  ; a Stromberg  Carlson  4020  plotter 

was  used  for  this  purpose. 
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R-AXIS 


RAD  2-00«3 


DIGITAL  COMPUTER  INPUT 

PROBLEM  no 

1881 

j programmer  A.  Picado  | 

REQUEST  FORM 

title  Newtonian  Program  for  Bodies  of  Revolution  j 

MEMO  NO 

SECTION  NO 

WORK  ORDER  NO 

( E240  U SE  ONLY) 

REQUESTED  BY 

EXT 

EST  TIME 

PAGE  1 OF  J PAGES 

$INPUT 

DATE 

MEM0 

, CASE  = 

BETA 

RA 

= 

, TH2G  = 

CMAG(  1) 

= 

RB 

= 

, TH3G 

» 

CMAG(2) 

= 

RC 

a 

, tha 

DERDEL 

5= 

RN 

, THB 

GStf> 

a 

RSB 

a 

, THC 

LC 

a 

RSC 

= 

, THN 

MASS 

a 

RSN 

_ 

, XCG 

NDIV 

- 

RT 

_ 

, ZCG 

NPGS0 

_ 

SM 

_ 

A1 

AIL 

DAI  = 

A2 

= 

A2L 

= 

DAE  = 

A3 

A3L 

= 

, DA3 

M2= 

, M4= 

, M7=  _ 

j M8= 

, M10= 

RINP(l) 

, 

XINP{1) 

= 

, 

, 

, 

. 

$ 

SC  4020  plots  No4  of  frames 
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DIGITAL  COMPUTER  INPUT 
REQUEST  FORM 


MEMO  MO 

SECTION  NO 

WORK  ORDER  NO 

( E240 

PL- 163 

K420 

W305-05U-0000 

$INFUT 

DATE 

_ 

MEM0 

BETA 

_ 

RA 

CMAG(  1) 

= 

RB 

CMAG(2) 

- 

RC 

DERDEL 

= 

RN 

GS<£> 

RSB 

LC 

= 

RSC 

MASS 

- 

1.  0 

RSN 

NDIV 

RT 

NPGS0 

= " 

SM 

A1 

0.  0 

AIL 

A2 

= " 

A2L 

A3 

= " 

A3L 

M2= 

, M4= 

, M7= 

RINP(  1) 

XINP(  1) 

- 

_ 

, 

$ 


SC  4020  plots  No.  of  frames 


$DATA 


12/01/64 


3/22/66 


1881  FORTRAN  IV 


IBLDR 


12/01/64 


SYSTFH 

MEMORY 

JA2_* 

00000  THRU  02717 

FILE  BLOCK  ORIGIN 
FILES  1.  UNIT05 

02720 

2 

UNIT06 

FILE  LIST  ORIGIN 

02764 

02772 

CALL  ON  OBJECT  PROGRAM 
OBJECT  PROGRAM  . 

D3023 

03030 

THRU 46571 

DECK  ORIGIN ... 

CONTROL 

SECTIONS 

t/NAHE/ 

cNON  0 LENGTH,  tt  DCUDELETFO 

. »»N0T  REFERENCED! 

0*010 

2.  SCALIN 

14026 

14264 

CALI NT 
CPLOT 

14214 

4.  .LXCON 

15251 

.LXSTR 

.LXCAL 

15251  * 

. LXSTp 
•LXERR 

15255 

15340 

.LXOUT 

15323 
15  522  * 

•LXRTN 

.1XARG 

15335  , IBEXIT 
15671  .LO  . 

15335  *. 
15714  »•, 

5*  .1 OnEF 

15731 

.CLSE 

-DFF1N 

15722 
_1 573 1 

.LEBL 
. ATTAC 

15723  * 
15735  * 

.LUNB 

•CLOSE 

15724 
15  737 .... 

.DFOUT 

.OPEN 

15725 

15741  -READ 

15743 

i r 

.WRITE 

15745 

.BSR 
. LTSX 

15755  * 

•READS 

15765 

.RELES 

15767  * .LAREA 

16041  -ENTRY 

16000 

16045 

♦GOA 

16100 

—16145 

.GO 

16104 

• DERR 

16120 

.HOPXI 

16121  .CWUH 

16123 

6.  ,LXSL' 

16152 

•LXSEL 
.1  XI  NO 

16152 

LXCSEL 

16153 

.LXTST 

16156  *. 
16302  ,* 

. LXOVL 
.ITCH 

16216  * .LXRCT-. 
16303 

16227  * 

?.  .FPTRP 
8,  .ERAS. 

16311 
16521 

.FFPT . 
E-l 

16311  * 
16521 

.FPOUT 

E.2 

16440 

16522 

•FPARG 

E.3 

16446 

16523 

/.COUNT/ 

E.4 

16450  ♦ OVFLOW 

16524 

16514  * 

9.  »XCC. 
_ lO^JCIT 

16525 

I&531 

CC.l' 

EXIT 

16525 
16531  . 

CC.2 

.EXIT. 

16526 
16531  * • 

CC.3 

16527 

CC.4 

16530 

11.  FXEH 

16532 

17162 

.FXEH. 

16532 

1716? 

•FXOUT 

1T067 

. FXARG 

17075 

/.OPTW ./ 

17151 

13.  FCNV 

17524 

.FCON. 

17524 

17571 

-FCNV. 

17547 

.ENDFS 

17562 

17714 

.CNVSW 

17564  .F0X1 

17717  *i.OBCI» 

17570 

17724 

•DBC20 

17752, 

20376 

.DDSU 

17762 

.DOF IX 

17771  . 

20333 

•FIXSW  ^ 
.02 

17777  ' * < LDOSC  r 
20335  V .FERR2 

20054 
20422  * 

.ANPT 
.FLT  . 

20456 

20770 

• ONPT 

20473 
21  n*o 

.LNTP 

20547 

71061 

.Aour 

-MC1UT 

20616  A ■ iDPLT 
IHTG 

20634 
?t  261  . ■ 

.LOUT 
.1  1ST 

21377 

22162 

•OOUT, 
• DONE 

21416 
22173 , 

.XCF 

.OUTBF 

21447 

22237  ' 

.tT6ST. 

.BUF 

2Z154J,«>,  .KOUNT 
22265  . "<i  iOSTO 

22157  | 

22266 

♦WIDTH 

.OOFLG 

22267 

22325 

♦GAIN 
♦ KOD 

22270 

■22326 

♦GAIN! 

22271',  ' 
22327 

,.FBBBF  , 
Jf  EXP- 

22301^  I ^DOOFL 

22324 
?2B3t  , * 

14.  F10S 

22351 

•FIOS. 

.FILL. 

22351 

22534 

.FSEC. 

-FCLS 

22511 
22536  » 

.FILft^ 

.FDPN 

Itnii-, 

* ..Fftta. 

‘.MM*. 

22531  . 

2271  f X _'V_ 

15.  FIOH 

23005 

.REED 

-FIQH, 

22717  * 
23005 

.BIN 

.FFIL. 

22720  * 
23574 

.FCT— ^22721 
.ERTf6i! 

VFCKSI  , 

16.  FWRO 

17.  FWRl) 

24006 

24032 

-FWRO. 

.FWRU. 

24006 

74037 

*i  * ' 

.j 

18.  FHRO 
16.  FRnil 

24056 

24463 

.FHRO. 

-FRDU. 

24056 

74463 

.FREST 

24361 >.  ‘ 

1 ' 

20.  UN05 
2L...UN06 

24524 

24525 

•UN05. 

.UN06. 

24524 

74575 

-BUFS7 

24526 

1 

' ’ 

22.  FIOU 

23.  JASIN 

24531 

7675* 

.FIOU. 
AS  f NR 

24531 

77036 

. CTU I 0 
ASIN 

25204 
27045  * 

‘ .NMLST 

25227 
27054  * 

•NAME. 

26332  .INTAR- 

26333 

'24*  JACOS 

-270*3:  v ' 

ACOSR 

2U46  * 

AC  OS 

27152 

ACOSD 

27161  * 
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12/01/64 


20. 


PRCOPAM  1881  -p.OQ  C4SE=  1.00  DATE=  -0.00 


0. 1’1974M) 
’.27476007 
’.781*01 07 
3.2094O57? 
3.29938744 
3. ’081 A 880 

1.  ’1668309 
1. 329*7469 

3 141*0107 
3. IS  371109 
3.30*13969 
1. 37860309 
1.19538381 
3.41175956 
3.4?  74  9149 
1.44737’35 
1.48581 768 
3.  46786046 
3. 478 J 67  59 
3.48651835 
3.40280986 
3.49686000 

4 0083559? 
4.00835592 


0.50000001 
5.94000000 
5.95053422 
5 .96029562 
5.96917737 
5.97708201 
5.98192302 
5.98962539 
5 99412674 
5.99717769 
5.99914262 
5 99999994 
5.99883211 
5.99535131 
5.98962539 
5.98176569 
5.97197526 
5.96029556 
5.94710308 
5.93260443 
5.91708195 
5.90083772 

3.00000000 
0.00000000 


ALPHA  XCf  CN  CX  CM  CMO  CLA  CL  CD  CL/CO  XCP/D 

0 0.00  o.ponn  1.4884  O.OOOO  -0.6424  -0.9768  -0.0000  1.4884  -0.0000  0.7469 

1.00  0.0000  -0.3243 

10  0.00  0.0875  1.4512  -0.0654  -0-6328  -0.8946  -0.1658  1.4444  -0.1148  0.7467 

3.00  -0.0435  -0.3193 

20  0.00  0.1648  1.3442  -0.1229  -0.6043  -0.6729  -0.3048  1.3195  -0.2310  0.7458 

3.00  -0.0817  -0.3047 

10  0.00  0.2229  1,1801  -0.1658  -0.5577'  -0.3663  -0.3970  1.1334  -0.3503  0.7441 

3.00  -0.1101  -0.2810 

40  0.00  0.2550  0,9785  -0.1890  -0.4947  -0.0494  -0.4337  0.9135  -0.4748  0.7413 

1.00  -0.1253  -0.2489 

50  0.00  0.2575  0.7637  -0.1897  -0.4172  0.2033  -0.4195  0.6682  -0.6095  0.7367 

3.00  -0.1254  -0.2096 

60  0.00  - 0.2306  0.5612  -0.1680  -0.3277  0.3373  -0.3707  0.4803  -0.7718  0.7286 

3.00  -0.1104  -0.1645 

70  0 00  0.1824  0.3863  -0.1301  -0.2689  0.4692  -0.3006  0.3035  -0.9904  0.7133 

3.00  -0.0845  -0.1352 

80  0.00  0.1295  0.2378  -0.0885  -0.2199  0.5334  -0.2117  0.1689  -1.2536  0.6836 

1.00  -0.0562  -0.HI4 

90  0.00  0.0837  0.1105  -0.0479  -0.1908  0.6431  -0.1105  0.0837  -1.3202  0.5724 

1.00  -0.0270  -0.1160 

100  0.00  0.0*40'  -0.0369  -0.0085  -0.2298  0.9426  0.0269  0.0596  0.4523  0.1583 

1.00  0.0050  -0.1929 

110  0.00  0.0404  -0.2428  0.0203  -0.2884  1.1671  0.2143  0.1210  1.7718  -0.5019 

3.00  0.0304  -0.2959 

120  0.00  0.0193  -0.5058  0.0346  -0.3563  1.1355  0.4184  0.2869  1.4584  -0.8806 

3.00  0.0444  -0.3993 

130  0.00  0.0400  -0.8164  0.0406  -0.4539  0.8760  0.5997  0.5554  1.0798  -1.0166 

3.00  0.0506  -0.5115 

140  0.00  0.0374  -1.1462  0.0414  -015485  " 0.3084  0.7081  0.9021  0.7850  -1.1066 

1.00  0.0507  -0.6087 

150  0. 00  0.0315  -1.4558  " 0.0367  -0.6072  -0.4296  0.7006  1.2765  0.548B  -1.1658 

3.00  0.0446  -0.6878 

160  0.00  0.0228  -1.7080  0.0274  * -0.6580  -1.1520  0.5627  1.6128  0.3469  -1.2032 

1.00  0.0331  -0.7461 

170  0.00  0.0120  -1.8725  0.0146  -0.6891  -1.6736  0.3134  1.8462  0.1697  -1.2240 

3.00  0.0176  -0.7819 

ISO  0.00  0.0000  -1.9297  0.0000  -0.6996  -1.8599  0.0000  1.9297  0.0000  -1.2296 

3.00  0.0000  -0.7940 


RHO  N — 0.00356  PHD  As  0.00755  XCG*  3.00000  XCC/O*  0.25000  RGX/D=  0.29978  RGY/D=  0.22102 
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CALCULATIONS  , INPUTS 


IH.  COMPUTATIONS 


A.  BLOCK  DIAGRAM 

A block  diagram  illustrating  the  information  flow  within  the  program  1881  is 
given  in  Figure  6. 
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Figure  6 BLOCK  DIAGRAM  OF  PROGRAM  1881 
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B.  SYMBOLS 


Aj  (x)  function  defined  by  equation  (10)  | 

(x)  function  defined  by  equation  (11) 

CD  drag  coefficient 

CL  lift  coefficient 

C moment  coefficient  (based  on 
m 

characteristic  radius  Rc  and 
characteristic  length  d) 

(*Cm/da) 

a 

\ cac jaq ) 

CN  coefficient  of  force  normal  to 

body 

Cx  coefficient  of  force  along  body 

axis 

d characteristic  length,  diameter 

(feet)  = 2 Rc 

dQ  increment  in  Q used  to  compute 

derivatives  (radians)  dQ  =0.005  | 

da  increment  m a used  to  compute 

derivatives  (radians)  da  = 0.005 

(x)  function  defined  by  equation  12 

Lc  length  of  cylindrical  section 

M vehicle  mass 

q angular  pitch  speed  (rad/sec) 

Q pitching  speed  parameter* 

Q = qd/2V  ( radians) 


RB  radius  of  flare 

Rc  characteristic  radius  (cylinder 
radius,  usually) 

RN  radius  of  spherical  nose  cap 

RSB  toroidal  radius  between  flare 
and  aftcone 

Rgc  toroidal  radius  following  cone 

Rsn  toroidal  radius  following  nose  cap 

Rt  radius  of  truncated  afterbody 
SM  static  margin 

VA  volume  rear  of  c.  g.  position 
VN  volume  forward  of  c.  g.  position 
x axial  coordinate;  nose  is  located 

at  x = o 

Xf  length  of  body 

XCG  distance  of  center  of  gravity 
from  nose 

XCP  distance  of  center  of  pressure 
from  nose 

offset  distance  of  center  of  gravity 
Z.  (x)  function  defined  by  equation  (14) 

a angle  of  attack 

jS  slope  at  start  of  tension  shell 
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density  aft  of  c g.  position 


slope  at  start  of  general  shape 


0 body  contour  slope 

0 ^ slope  of  aftcone 

slope  of  flare 
slope  of  cone 

0N  slope  at  end  of  nose  cap 


Subscripts 

i = 0 denotes  moments  taken  about  the  nose 
i denotes  moments  taken  about  the  center  of  gravity 


C.  EQUATIONS 


1.  Coefficient  Calculation 


a Newtonian  Coefficients 


d^G  slope  at  end  of  general  shape 


03T  slope  at  end  of  tension  shell 


to1  Function  defined  by  Equation  (15) 


A (x)cos  fi);  + B (x)  I — — sin  2 a + 1 (1) 

\ 2 4 4/ 


2 * 7 * 

— — - G1(x)cos&>i  (sinz  £UA  +2)  r(x)  dx 

v = / A (x)  (&>*  + — ^ — B (x; 

‘ Jo  L‘  ^ 

( “i*  1 , v\ 

+ 2Gj(x)^— ^ “ sm2  <ax  + — J r(x)  ti 


(x)  cos  o>i 


(x)  — - - sin  0 I Oi*  + — 


Ax  (x)  KA  (x)  (3) 


Zi  \ . / Zi 

— (x)  — — sin  $ I cos  c tfj  + f 00  00  ~ 2 Ga  (x) sin  6 


w.  1 * n \ 2 * / o * 

7 - j sin2a1  + — j - — Gx  (x)  Kj  (x)  cos  a>-  [ sin*  w1 


r (x) 


Ct  = — Cv  an  a + Cvr  cos  a 


Cd  = Cj^  cos  a + Cjj  sin  a 


Xrp/d  = - Cm  /CN 


dC, 


'mi  Cinj  (a+  da»  Q)  - cmi  <a» 

da  da 


(4) 

(5) 

(6) 
(7) 


(?Ct 

"1 

da 


CL  (a  + da,  Q)  - Ct  (a,  Q) 


(8) 


dC, 


’m,  m. 


V d Q 


Cm  (a,Q  + dQ)  - Cm  (a,  Q) 


dQ 


(9) 


b.  Auxiliary  Equations 


(x)  = 2 sin^  6 cos  a J cos  a + 2 Q 


(10) 
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(11) 


r / z,  \ ■ 

Bj  (x)  = —2  sin  0 cos  0 sin  2 a + 2 Q /Kj  (x)  cos  a + -y  cosO  sin  aj 


Gx  (x)  = cos  8 sin  a ( cos  6 sin  a + 2 Q Kx  (x))* 


Kx  (x)  = — - — sm  0 + cos 


Ze  IF  * = g 


fsm  u cos  a \ sm  a cos  c 

| if  

cos  6 sin  a / cos  0 sm  c 


jr/2  If  cos  6 sin  a = 0 and  sin  6 cos  a >0 


— n/2  If  cos  6 sin  a ~ 0 and  sm  8 cos  a < 0 


sm  0 cos  a 

ir/2  If  > 1 

cos  6 sm  a 


sin  8 cos  a 

— ir/2  If  < - 1 


c.  Center  of  Gravity  Determination. 
1)  Cm  Criteria 


N«=< 


a ~ 180  Cm 


Na  \ “/spec. 


2)  Static  Margin  Criteria 


At  a = 0,  XCG  = Xcp  - SM 
At  0 < a < 180,  XCG  < Xcp 
2.  Moments  of  Inertia 

a.  Density  Distribution 


b.  Moments  of  Inertia 


IV.  IBM  ROUTINES 


A.  PROGRAM  FLOW 

A flow  diagram  of  Program  1881  is  shown  as  Figure  7. 


£ INDICATES  MAIN  FLOW 
INDICATES  SIDE  FLOW* 
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Figure  7 FLOW  DIAGRAM  OF  PROGRAM  1881 
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B.  SUBROUTINES 


CALINT 


CPL0T 


VARIABLE 

THR 

DELR 

R3 

RK 

SBETAR 

CBETAR 

RJ 

QOOOFL 

SUBROUTINE 
INPUT  OR  OUTPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

OUTPUT 

OUTPUT 

SOURCE 

INPUT 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

VARIABLE 

X 

R 

L 

T 

RN 

THE TAN 

RAD 

SUBROUTINE 
INPUT  OR  OUTPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

SOURCE 

MAIN 

MAIN 

MAIN 

INPUT 

INPUT 

MAIN 

MAIN 

1.  Subroutine  CALINT 


a.  Purpose 

This  subroutine  is  used  in  the  case  of  the  tension  shell  (third  section) 
to  compute  the  integrands  QOOOFIi  required  to  apply  Simpson’s  Rule 
m subroutine  ARSIMP. 

b.  Method 

Starting  with  initial  angle  BETA  at  the  first  point  of  the  section,  other 
points  along  the  section  for  each  DELR  increment  m the  radius  are 
computed.  The  section  is  subdivided  into  NDIV  portions.  To  compute 
the  abcissa  X of  the  righthand  point  of  each  of  these  portions,  an 
integration  is  performed  over  each  portion.  Thirty-two  (32)  intervals 
are  considered  for  each  portion  and,  therefore,  a loop  is  set  up  to 
compute  the  integrands  QOQOFE  at  33  points.  For  each  of  these  points 
the  ordinate  RJ  is  computed  m the  same  loop.  The  last  computed  RJ 
for  each  portion  is  the  ordinate  of  the  point  corresponding  to  that 
portion. 
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2.  Subroutine  CPL0T 


a.  Purpose 

To  set  up  the  array  of  points  (X,  R)  to  be  plotted  by  library  routine 
AICRT3. 

b.  Method 

In  MAIN,  the  first  point  computed  is  the  end  point  of  the  first  section. 
Therefore,  for  the  purpose  of  plotting  the  whole  body,  compute  18 
extra  points  m the  first  section  of  CPL0T.  These  extra  points  are 
then  incorporated  into  the  X and  R arrays  of  points  computed  in  MAIN. 
CPL0T  also  computes  the  maximum  values  XU  and  YU  for  X and  R 
from  the  respective  arrays  and  chooses  the  greater  of  the  two  to 
establish  the  scale  of  the  plot. 


All  the  variables  m the  calling  sequence  of  library  routine  AICRT3  are 
set  to  the  proper  values  and  the  total  array  of  points  XPT  (abcissas)  and 
RPT  (ordinates)  are  then  plotted  on  the  4020. 

3.  Main  Program 


a.  Purpose 

The  main  program  computes  the  array  of  coordinates  (X,  R)  along  the 
body,  defines  table  of  alphas  to  be  considered,  performs  preliminary 
computations  for  the  integration  procedures,  sets  up  the  main  logical 
flow  of  the  problem  and  performs  the  final  computations  to  obtain  the 
a e r odynamic  co  ef f i cients . 

b.  Method 

The  program  first  sets  the  values  of  all  preset  input,  then  reads  m 
the  data  through  the  Namelist  array  INPUT. 
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After  converting  all  input  angles  to  radians  and  finding  the  values  of 
their  sines  and  cosines,  the  program  proceeds  to  compute  the  coordinates 
(X,  R)  of  the  points  considered  for  each  section.  The  first  point  to  be 
computed  is  the  intersection  of  the  nose  radius  with  the  body  surface, 
i.  e. , the  end  point  of  the  first  section  (Statement  No.  302).  All  curved 
sections  (except  the  first)  are  subdivided  into  the  prescribed  input 
number,  M2,  M4,  M7,  M8,  and  M10.  If  these  are  not  input,  the 
program  will  use  the  preset  values.  The  third  section  may  have  one 
of  the  three  different  shapes,  i.e.,  general,  tension,  or  conic  shape. 

In  the  general  shape  (Statement  No.  9141),  the  points  along  the  section 
are  input  (XINP,  RINP)  and  are  merely  incorporated  in  the  (X,  R) 
arrays  of  coordinates  for  the  whole  body. 

In  the  case  of  the  tension  shape  (Statement  No.  486),  the  initial  angle 
BETA  is  input  and  the  program  computes  the  points  determined  by  the 
input  number  of  divisions  NDIV.  The  angle  0 along  the  section  lies 
between  BETA  £ 0 < 90  degrees  and  for  the  last  point  on  the  section 
0 = 90  degrees.  The  number  of  divisions  is  preset  to  20.  For 
each  subdivision  a point  (X,  R)  will  be  computed.  The  ordinate 
R is  obtained  by  adding  an  increment  AR  to  the  R of  the  previous 
point.  Each  AX  is  obtained  by  integrating  over  the  respective 
subdivision  (Loop  on  Statement  No.  5533).  For  integration  purposes 
in  each  subdivision,  32  intervals  (or  33  auxiliary  points)  are  considered. 
The  integrands  Q000FL  are  computed  m subroutine  CALINT.  Then 
library  routine  ARSIMP  integrates  using  Simpson's  Rule. 

The  ordinate  R is,  for  each  subdivision,  the  value  RJ  computed  m 
CALINT.  In  the  case  of  a conic  shape  (Statement  No.  484),  only  the 
end  point  is  computed.  The  remaining  sections  are  handled  by  straight- 
forward application  of  the  given  formulas.  For  RSB  4 0 (internally 
RSCB),  the  program  assumes  that  both  toroidal  sections  10  and  9 are 
gi  ven. 

Symbol  L represents  the  number  of  points  whose  coordinates  were 
computed  along  the  body.  These  L points  plus  18  extra  points  on  the 
nose  computed  by  subroutine  CPL0T  will  be  plotted  (R  versus  X)  by 
library  routine  AICRT3,  using  the  first  available  tape  on  channel  A. 

Arrays  X(l-L)  and  R(l-L)  are  then  printed  out  (Statement  No.  4999) 
and  the  program  proceeds  by  forming  the  angle  of  attack  table  for  the 
3 possible  ranges  using  the  input  Al,  A2,  A3,  AIL,  A2L,  A3L  and 
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the  input  increments  DAI,  DA2,  DA3  (Statements  between  Statement  Nos. 

13  and  20). 

A loop  on  ALPHAS  (Statement  number  1003)  is  set  up  comprising  most  of  the 
rest  of  the  program,  i.  e. , for  each  ALPHA  a set  of  force  and  moment  co- 
efficients (CL,  C C C C (L/D)  , Xcp  and  the  corresponding 
N X m.  L.  D.  i r'  & 

l,  l,  l,  L i» 

derivatives  GT  C C„  and  C are  computed. 

N , m , N , m 

a.  a.  q.  q. 

ill  i 

The  loop  on  ALPHAS  is  the  outermost  of  a nest  of  loops  which  are  completed 
as  follows  loop  for  subscript  (£)  and  XG  (Statement  number  345),  loop  to 
compute  numerically  the  derivatives  CNA,  CMA,  CNQ,  and  CMQ  (D0  91 
MM  - 1,  3),  loop  for  the  integration  of  body  sections  L(  Statement  number 
2774)  (the  body  is  subdivided  into  a number  of  portions  equal  to  the  number 
of  computed  points),  and  loop  for  computation  of  integrands  (D0  50  M = 1,  J) 
(each  of  the  L sections  is  further  subdivided  into  a maximum  of  9 intervals 
before  Simpson's  Rule  (subroutine  ARSIMP)  is  applied). 

After  exiting  from  this  nest  of  loops,  (after  Statement  No.  389)  p*. 
(internally  RH0N),  p (internally  RH0A),  XCG /D  (internally  XCuDD), 
RGX/D,  RGY/D  are  computed. 

Within  the  ALPHA  loop,  the  program  prints  out  for  each  ALPHA  the 
coefficients  CN,  CM,  CX,  CMQ,  CLA,  CD,  CL/ CD,  and  XCP/D 
(immediately  after  Statement  No.  370). 

Outside  this  loop,  at  the  very  end  of  the  program,  the  quantities  RHON, 
RH0A,  XCG,  XCG  /D,  RGX/D,  and  RGY/D  are  printed  out. 

C.  SIGNIFICANT  EQUATIONS 

1.  Main  Program  Statement  Number* 

Section  1 (N0SE):  X(l)  = RN  * [1  - cos  (THETAN)] 


R(l) 


'x(l)  • (2RN  — X Cl)l 


302 


The  statement  numbers  are  provided  to  assist  in  locating  the  equations  in  the  program  listing  as  the  equations  noted 
appear  in  the  immediate  vicinity  of  these  statement  numbers. 
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Section  2 (T0R0IDAL): 


f f [90  - (THETAN  + THETAC)]  \ I 

X(J)  - X(l)  + RS  • < cos  (THETAN)  — sin  jXJ  — jY 

where,  XJ  = 1,  . . . , XM2 

( ( f 90  - (THETAN  + THETAC)!  ) v l 

R(J)  = R(l)  + RS  * < cos  ^XJ  — J > - sin  (THETAN)  f 

3 03 


Section  3 (C0NIC): 


R(K)  = RC-RSCA[1- cos  (THETAC)] 
X(K)  = X(K  - 1)  + [R(K)  - R(K  - 1)]  - 


cos  (THETAC)  , 
sin  (THETAC) 


3 06 


Section  4 (T0R0IDAL)- 


X(J)  = X(K)  + RSCA  (sin  (THETAC)  - sin  (TJ)3 


R(J)  = R(K)  + RSCA  [cos (TJ)  - cos  (THETAC)] 
where. 


TJ  = 


(XJ  * TM4) 


RAD 

and,  TM4  = THETAC/M4 
Section  5 (CYLINDRICAL): 

X(K)  = X(K  - 1)  + DX1 

R(K)  = RC 

Section  6 (C0NIC): 

R(K)  = RB  — RSCB  [l  — cos  (FTHETA)} 

cos  (FTHETA) 

X(K)  = XCK-D  + (R(K)-RC)  * . — 

% sin  (FTHETA) 

Section  7 (T^)R0IDAL): 

X(J)  = X(K)  + RSCB  [sin  (FTHETA)  - sin  (TJ)] 

R(J)  = R(K)  + RSCB  • (cos(TJ)  - cos  (FTHETA) 3 
FTHETA 


wheref  TJ  s XJ  * 
-35- 
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M7 


/RAD 


325 


312 


317 


Section  8 (T(^R$IDAL): 


X(J)  = X(K)  + RSCB  * sm(TJ) 
R(J)  = RB  — RSCB  * [l  — cos(TJ)] 


THETAA  , 

where  TJ  = XJ  * /RAD 

M8 


Section  9 (C<f)NIC)* 


r , cos  (THETAA) 

X(K)  = X(K-l)  + [R  (K  — 1)  — R(K)]  * 321 


sin  (THETAA) 


Section  10  (SPHERICAL): 


X(J)  = X(K)  + RSA  ' [sm(TJ)  - sin  (THETAA)] . 

R(J)  = R(K)  - RSA  * [cos  (THETAA)  - cos(TJ)] 

where  TJ  + [XJ  * (90  - THETA A)/M  10  + THETAA  ]/RAD  326 


B0X  = -2  sin  (THETA)  | cos(THETA)  * sin  2 ALPHA  + 2 ZA  Q J^XK  ' cos  (ALPHA)  + 


+ ■ ^ * cos  (THETA)  sin  (ALPHA)J  | 

sin  (THETA)  . . cos  (THETA) 

where,  ZK  a RX(M)  . — + (XZ(M)  - ZX)  * 48 

o r ^ ZZ®  1 as 

A0X  = 2 sin2  (THETA  ' cos(ALPHA)  * cos(ALPHA)  + 2ZAQ  * ■ - j 4a 

G 0X  = cos  (THETA)  sin  (ALPHA)  [cos(THETA)  * sin  (ALPHA)  + 2ZAQ  * ZK] 

48 

f _ (sin2(0MEGA)+2)l 

CN(M)  = J^—  A 0X  cos(  0MEGA)  + B 0X  0Z-  2 G 0X  * cos(0MEGA)  * j 


where  , 0Z  = 5 0MEGA  - .25  sin(2  <2folEGA)  + .78539816 
RX(M)  = yjl  RN  XZ(M)-XZ(M)2 

sin  (THETA) 

CX(M)  = [A0X  * (OMEGA  + 1 5707963)  - B0X  cos(0MEGA)  + 2 * 0Z  * GQlXj  * RX(M) 

cos  (THETA) 


CM(M)  = \ - A0X  * ZZ(II)  sin  (THETA)  • (0MEGA  + 1 5707963)  - 

- [A0X  * ZK  * SL  - B0X  * ZZ(II)  * sin  (THETA)]  * cos(0MEGA) 

+ [B0X  ZK  SL  - 2G0X  ZZ(II)  * sin  (THETA)]  * 0Z  - 
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G0X 


ZK  * SL  cos(0MEGA)[sm2  (0MEGA)  + 2]  [ . 


RX(M) 

cos  (THETA) 


CD  (MM)  = CXI  * cos  (ALPHA)  + CN1  * sm  (ALPHA) 

CL  (MM)  = CXI  sm  (ALPHA)  + CN1  * cos(ALPHA) 
(CN3-  CN1) 


CNA  = - 


CNQ 


CMQ 


XCP 


DDL 

(CM3  - CM1) 

DDL 

(CN2  - CN1) 

DDL 

(CM2  - CM1) 

2 

DDL 

CM1 

-SL  * 


CN1 

2.  Subroutine  CALINT 


where, 


DERVR1  = 


THR  - THR  DELR  * DERIN 
RJ  = RJ  DELR 
C0TM  * (C0TT  C0TTMl)/2. 

f 1 + cos  (BETAG)l 


AL0  GBE  = L0G 


sm(BETAR)  J 
sin  (THR) 


48 

48 

93 

352 


920 


| AL0GBE  1+ cos  (THR) 

DERIN  = RJ/(0.  5 * DERVR1) 


. [...«* 


cos(THR) ) 


sin2  (THR) 


> (THR)  J | 
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3.  Subroutine  CPLCflT 


ANGL  = (XK  • DIVTHN)/RAD 

where,  DIVTHN  = THETAN/18. 
and,  XK  = 1,  . .18 

XPT(I)  = RN  * [ 1 — cos  (ANGL) ] 60 

RPT(I)  = RN  sin  (ANGL) 
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I.  INTRODUCTION 


A.  GENERAL  DESCRIPTION 

The  purpose  of  this  program  is  to  determine  the  component  system  weights  for 
an  axisymmetric  entry  vehicle.  The  program  has  four  distinct  segments  within 
which  exists  a number  of  options.  The  four  segments  are  as  follows 

1.  Heat  Shield  and  Structural  Shell  --  The  inboard  profile  coordinates  of 
the  vehicle  are  generated  based  on  body  input  parameters . The  moments 
of  inertia,  center  of  gravity,  area  and  weight  of  each  section  of  the  vehicle 
are  then  computed.  The  weights  are  based  upon  specified  unit  weights  for 
the  heat  shield  and  structure  of  each  section. 

2.  Descent  System  --  The  descent  system  weight  computation  is  based  on 
specified  deployment  and  impact  conditions.  Three  options  exist  (a)  a two 
chute;  (b)  a single- chute,  or  (c)  a drogue- chute  retrorocket  system. 

3.  Impact  Attenuation  System  --  The  amount  of  crushup  weight  is  com- 
puted so  as  to  assure  a soft  landing  within  impact  velocity  and  acceleration 
limits.  Three  options  exist  as  to  the  landed  package  configuration:  (a) 
spherical;  (b)  lenticular;  or  (c)  conical.  The  latter  option  utilizes  a spheri- 
cal segment  of  crushup  and  assumes  preferred  impact  orientation.  All  of 
the  options  yield  the  geometric  dimensions  of  the  crushup  and  payload. 

4.  Packaging  Design  — This  portion  of  the  program  packages  the  landed 
package  and  descent  system  components  within  the  inboard  profile  limits 

of  the  vehicle.  A minimum  overall  specified  center  of  gravity  must  be  sat- 
isfied. With  the  overall  vehicle  center -of- gravity  position  established,  the 
moments  of  inertia  are  then  computed  for  the  entire  capsule.  The  internal 
structural  weight  of  the  lander  is  also  computed  in  this  portion  of  the  program. 

B.  CALCULATION  MODEL 

The  calculation  model  for  each  of  the  four  segments  of  Program  1882  is  as 
follows: 


1.  Heat  Shield  and  Structural  Shell 


a.  The  evolved  body  coordinates  of  the  vehicle  reflect  the  bond  line 
profile  of  the  heat  shield  and  structure  shell.  The  heat  shield  and 
structural  unit  area  weights  are  input  for  each  vehicle  section.  The 
vehicle  sections  are  identified  parametically  as  shown  in  Figures  1 and  2. 
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SECTION  ' 

1 NOSE  SPHERE 

2 Rsn  TORUS 

3 CONE  (SEE  FIGURE  2 FOR  ADDITIONAL  OPTIONS) 

6 R sc  TORUS 

7 CYLINDER 

8 FLARE 

9 FORE  RgB  TORUS 

10  AFT  R$b  TORUS 

11  AFT  CONE 

12  AFT  SPHERE  (Ra) 

13  » BASE  (Rt) 


Figure  1 VEHICLE  SHAPE  PARAMETERS 


TENSION  SHELL  OPTION  (SECTION  4) 


CONTINUE  AS  ON 
PREVIOUS  FIGURE 


TENSION  SHELL  INPUT  PARAMETER 
R3-  BASE  RADIUS  OF  TENSION  SHELL  (NOT  INPUT) 


GENERAL  SHAPE  OPTION  (SECTION  5) 


(Xn,  Rn  ) 


(XgtR2  ) 


52G«036iX»R*  GENERAL  SHAPE  INPUT  PARAMETERS 
ni  25 


65-11620 


Figure  2 TENSION  SHELL  AND  GENERAL  SHAPE  GEOMETRIES 
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b.  The  inertia,  center  of  gravity,  and  area  equations  are  based  on  a 
derivation  assuming  the  heat  shield  and  structure  thickness  to  be  small 
and  uniform. 

E.  Descent  System 


a.  The  model  atmosphere  generated  consists  of  a troposphere  and 
stratosphere.  Equations  for  the  thermosphere  are  not  utilized  since 
it  is  reasonable  to  assume  that  chute  deployment  will  always  occur  at 
an  altitude  well  below  the  thermosphere  region. 

b.  The  equations  of  motion  utilized  in  the  trajectories  are  the  two 
degree  of  freedom  equations  neglecting  the  centripetal  acceleration  and 
lift  terms. 

c.  The  drogue  chute  descent  calculation  assumes  that  the  chute  opens 
instantaneously,  and  hence  does  not  account  for  the  loss  m altitude  due 
to  the  filling  time.  This  is  a reasonable  assumption  since  drogue  chutes 
are  usually  fairly  small  m diameter  with  filling  times  in  the  order  of 

Oi  05  second.  The  drogue  chute  is  sized  by  the  requirement  of  achiev- 
ing a prescribed  Mach  number  at  a prescribed  altitude. 

d.  The  mam  chute  descent  accounts  for  the  loss  m altitude  due  to 
chute  opening  and  assumes  constant  velocity  during  filling.  Subsonic 
chutes  (Mach  0.  8)  m the  order  of  60  feet  diameter  would  result  in 
filling  times  of  about  1.  5 seconds,  and  hence  incur  an  altitude  loss  of 
about  800  to  1000  feet. 

e.  Terminal  descent  velocity  is  assumed  for  the  calculation  of  the 
main  chute  canopy  size. 

f.  All  trajectory  calculations  account  for  the  correct  vehicle  and 
chute  drag  components  where  applicable. 

g.  Jettisoning  of  heat  shield,  structure,  and  drogue  system  weights 
are  accounted  for  m the  trajectory  calculations  where  applicable. 

h.  A cluster  of  chutes  is  employed  if  the  required  diameter  of  a 
single  main  chute  exceeds  the  maximum  specified  value  DMCMAX. 

i.  The  descent  system  options  are  depicted  in  Figure  3. 

j.  The  parachute  weight  model  (see  below)  accounts  for  materials, 
dynamic  pressure  and  size. 
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MACH  NO 


a SINGLE  CHUTE  SYSTEM 


b TWO  CHUTE  SYSTEM 


c DROGUE-RETRO  SYSTEM 


Figure  3 DESCENT  SYSTEM  OPTIONS 
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Parachute  Weight  Model 


Materials  (K) 


Dynamic  Pressure  (q) 


Diameter  (d) 


3.  Impact  Attenuation  System 


a.  The  equations  utilized  are  based  on  the  analysis  of  Reference  1 
which  accounts  for  the  variation  of  mass  during  the  crush-up  stroke 
and  for  materials  with  anisotropic  properties. 

b.  Equations  derived  are  for  the  particular  case  where  the  crushable 
material  is  m the  shape  of  a spherical  segment. 

c.  Crushing  is  assumed  to  start  at  the  initial  contact  point  and  then 
the  surface  of  crushing  moves  upward  into  the  material  during  impact. 
Hence,  at  any  time  the  mass  below  this  surface  has  already  been  brought 
to  rest  such  that  the  mass  being  decelerated  is  a variable  with  time. 

d.  The  crushable  material  is  assumed  to  be  rigid  and  perfectly  plastic, 
deforming  at  constant  stress  up  to  the  total  usable  strain. 

e.  The  conical  and  lenticular  options  which  utilize  a spherical  segment 
of  crushup  assume  preferred  orientation  upon  impact,  such  that  the  re- 
sultant deceleration  vector  passes  through  the  center  of  gravity  of  the 
landed  package. 

f.  The  impact  surface  is  considered  to  be  flat,  smooth  and  infinitely 
rigid. 

g.  Landed  package  geometries  are  shown  in  Figure  4. 
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> — INTERNAL  STUCTURE 
INTERNAL  PAYLOAD 

4a.  CONE-CYLINDER  SHAPE  LANDER 


4c  CONE  SHAPE  LANDER 


Figure  4 LANDED  PACKAGE  GEOMETRIES 
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4 Lander  Packaging  Design 


a.  The  thickness  of  the  heat  shield  and  structure  is  accounted  for  in 
the  lander  packaging  by  adding  the  thickness  to  the  outer  dimension  of 
the  landed  package. 

b.  The  internal  payload  is  packaged  with  uniform  density. 

c.  A symmetrical  cylindrical  ring,  placed  at  the  maximum  radius  of 
the  landed  package,  is  utilized  for  parachute  packaging  as  shown  in 
Figure  5. 

d.  The  landed  package  is  located  as  far  forward  in  the  vehicle  as 
possible  as  shown  in  Figure  5. 

C.  LIMITATIONS 

Limitations  of  Program  1882  are  listed  below: 

1.  The  heat  shield  and  structure  must  be  of  uniform  unit  weight  and / or 
thickness  for  each  section. 

2.  Parachute  designs  (drogue  and/  or  mam)  do  not  account  for  reefing; 
however,  the  chute  drag  coefficients  can  be  arranged  so  as  to  simulate 
reefing. 

3.  The  parachute  design  does  not  include  fabric  heating  effects  which 
often  result  in  Mach  number  deployment  limitations  for  various  fabrics. 

4.  The  parachute  design  does  not  include  stability  considerations  and/or 
losses  in  performance  due  to  angle  of  attack  or  Reynolds  number  effects. 

5.  The  retrorocket  system  design  is  based  on  a single-impulse  system. 

6.  The  impact  crush- up  design  assumes  homogeneous  materials. 

7.  Only  spherical  segments  of  crushup  can  be  utilized  for  the  impact 
geometry. 

8.  The  impact  attenuation  analysis  assumes  that  crushing  takes  place 
only  in  the  plane  of  the  impact  surface,  that  the  payload  is  rigidly  attached 
and  that  crushing  cannot  take  place  at  an  inner  crushup  surface  and  proceed 
outward. 
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II.  PROGRAM  USAGE 


A.  INPUT  DEFINITIONS 


Name 

Preset 

Value 

Symbol 

Parameter 

Units 

ALPHA 

a 

Empirically  determined  con- 
stant relating  crushing  stress 
and  density. 

— 

AO 

a 

Empirically  determined  con- 
stant describing  anisotropy  of 
crushable  material. 

— 

Al 

al 

Empirically  determined  con- 
stant describing  anisotropy  of 
crushable  material . 

A2 

a2 

Empirically  determined  con- 
stant describing  anisotropy  of 
crushable  material. 

— 

A3 

! 

a3 

Empirically  determined  con- 
stant describing  anisotropy  of 
crushable  material. 

— 

BETA 

0. 

P 

Tangent  angle  at  beginning  of 

tension  shell* 

degrees 

CDD 

CDD 

Table  of  drogue  chute  drag  co- 
efficients, Mach  number  de- 
pendent . 

CDMC 

CDMC 

Table  of  mam  chute  drag  coef- 
ficients, Mach  number  depen- 
dent. 

CDY 

CDV 

Table  of  entry  vehicle  drag  coef- 
ficients, Mach  number  depen- 
dent, 

DELTA 

0.  01 

Integration  At. 

seconds 

DELMIT 

l.E-5 

Smallest  allowable  At, 

seconds 
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Name 

Preset 

Value 

Symbol 

Parameter 

Units 

DESSYS 

Input  sentinel  to  designate  type 
of  descent  system. 

- 

DDMIN 

Minimum  drogue  chute  diam- 
eter. 

feet 

DLVFAC 

AV 

Velocity  increment  in  rocket 
design. 

ft/s  ec 

DMCMAX 

100. 

Maximum  main  chute  diameter. 

feet 

DMCMIN 

Minimum  main  chute  diameter. 

feet 

DNBND 

l.E-3,  1 
l.E-2 

. E-6, 

Lower  bounds  on  trajectory 
integration  (velocity,  angle, 
altitude). 

— 

DRV-EL 

50. 

Velocity  interval  for  printout 
of  drogue  chute  trajectory. 

-- 

EF 

E 

Modulus  of  elasticity. 

psi 

EPSILN 

e 

Total  usable  strain. 

EPS1 

l.E-3 

Convergence  factor  for  y/R^. 

— 

EPS3 

1.  E-3 

Convergence  factor  for  R^^. 

- 

FACTOR 

0.2 

Factor  by  which  to  change  At. 

— 

FALR 

Li 

Temperature  gradient  in  tro- 
posphere expressed  as  a frac- 
tion of  the  adiabatic  lapse  rate. 

FREQ 

0.  5 

Interval  for  exiting  from  inte- 
gration routine. 

j 

— 

FREQ2 

2. 

^ Time  interval  for  exiting  from 
ADAMS4  during  main  chute 
trajectory. 

— 

FREQ3 

2. 

Time  interval  for  exiting  from 
ADAMS4  during  drogue- retro- 
rocket  trajectory. 

-- 
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Name 

Preset 

Value 

Symbol 

Parameter 

Units 

GAMD 

Flight  path  angle  at  drogue 
chute  deployment. 

degrees 

GAMMC 

yMC 

Flight  path  angle  at  mam  chute 
deployment. 

degrees 

GIMP 

^imp 

Maximum  allowable  impact 
acceleration. 

Earth  g 

GSL. 

gSL 

Gravitational  acceleration  at 
planet  surface. 

2 

ft/ sec 

IMPSYS 

Input  sentinel  to  designate  type 
of  impact  system. 

— 

ISP 

TSP 

Required  specific  impulse  of 
retrorocket. 

lb-sec/lb 

IYR2 

0.4 

Initial  guess  for  Y/R2 

— 

JET 

Input  sentinel  to  indicate  when 
jettisoning  of  heat  shield  and 
structure  occurs. 

— 

LC 

0. 

Lc 

Cylinder  body  section  length. 

feet 

LC0RC0 

0. 

Lcc/Rco 

Ratio  of  cone  length  to  cylinder 
radius  (internal  geometry). 

- 

LCYRC0 

0. 

lcyi/rco 

Ratio  of  cylinder  length  to  cyl- 
inder radius  (internal  geometry), 

— 

LRDR 

Vdr 

Ratio  of  retrorocket  length  to 
diameter. 

— 

MACD 

md 

Drogue  chute  deployment  Mach 
number. 

— 

MACH 

Table  of  Mach  numbers. 

— 

MACMC 

mmc 

Main  chute  deployment  Mach 
number. 

- 

MCVEL 

50. 

Velocity  interval  for  printout 
of  main  chute  trajectory. 

ft/  sec 
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Name 

Preset 

Value 

Symbol 

Parameter 

Units 

MR 

M.R. 

Mass -fuel  ratio  of  retro  rocket. 

— 

NRINGS 

0. 

Number  of  rings. 

- 

PSI 

0 

Empirically  determined  con- 
stant relating  crushing  stress 
and  density. 

— 

RA 

0. 

ra 

Radius  of  rear  spherical  cap. 

feet 

RB 

0. 

rb 

Flare  radius. 

feet 

RC 

0. 

Rc 

Reference  vehicle  radius. 

feet 

RCHUTE 

p CHUTE 

Packaging  density  of  the  para- 
chute system. 

lb/ft3 

RH0CM 

Pc 

MAX 

Maximum  allowable  crusliup 
density. 

slug/ft3 

RH0CMI 

pc 

MIN 

Minimum  allowable  crush  up 
density. 

slug/ft3 

RH0F 

P is 

Density  of  internal  structural 
face  sheet. 

lb/ft3 

RH0I 

pi 

Packaging  density  of  Hie  inter- 
nal payload. 

slug/ft3 

RH0R&C 

P R 

Density  of  retrorocket. 

lb/ft3 

RH0SL 

PSL 

Density  of  the  atmosphere  at 
planet  surface. 

1 

slug/ft3 

RN 

0. 

rn 

1 

Nose  cap  radius. 

feet 

RR 

0. 

r 

Ordinates  for  general  shape. 

feet 

RSB 

0. 

rsb 

Toroidal  radius  from  flare  to 
afterbody  sections. 

feet 

R SC 

0. 

Rsc 

Toroidal  radius  frdlowing  cone 
section. 

feet 
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Name 

Preset 

Value 

Symbol 

Parameter 

Units 

RSN 

0. 

R_  T 
SN 

Toroidal  radius  following  nose 
cap  section. 

feet 

RT 

0. 

rt 

Base  radius  of  truncated  after- 
body. 

feet 

SECTN 

0. 

Ordered  array  of  vehicle  sections 
Each  element  is  a number  be- 
tween 1 and  13. 

. — 

SIGCYF 

acy 

Yield  stress  of  the  internal 
structural  face  sheet. 

psi 

STRFAC 

1. 

Structural  weight  factor. 

- 

TFMIN 

^fmin 

Minimum  allowable  face  sheet 
thickness. 

inches 

THA 

0. 

9A 

Aftcone  section  body  angle 
(negative). 

degrees 

THB 

0. 

& 

CD 

Flare  section  body  angle. 

degrees 

THC 

! 

0. 

ec 

Cone  section  body  angle. 

degrees 

THC<£> 

0. 

eco 

Cone  angle  of  the  internal 
payload. 

degrees 

THM 

Angle  subtended  by  the  crush- 
able  material  segment. 

degrees 

THN 

0. 

®N 

Tangent  angle  at  end  of  nose 
radius. 

degrees 

THS 

hn/s 

Thickness  of  heat  shield  and 
structure  combined. 

feet 

TH2G 

0. 

e2G 

Tangent  angle  at  beginning  of 
general  shape. 

degrees 

TH3G 

0. 

®3G 

Tangent  angle  at  end  of  general 
shape. 

degrees 

TN 

n 

Empirically  determined  exponent 
describing  anisotropy  of 
crushable  material. 

- 
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Name 

Preset 

Value 

Symbol 

Parameter 

Units 

TSL 

T 

SL 

Atmospheric  temperature  at 
planet  surface. 

°K 

TST 

T 

ST 

Atmospheric  temperature  in 
the  stratosphere. 

°K 

TZER$ 

0. 

T 

o 

Initial  time  for  trajectory. 

seconds 

UPBND 

0.01,  1. 
0.1 

E-5 

Upper  bounds  for  trajectory 
integration  (velocity,  angle, 
altitude). 

— 

VELW 

vw 

Horizontal  velocity  component 
used  in  impact  attenuation 
analysis. 

ft/  sec 

VIMP 

V 

IMP 

Design  impact  velocity  for 
retrorocket  system.  (Vertical 
and  horizontal  components 
included). 

ft/  sec 

VV 

vv 

Design  vertical  descent  velo- 
city for  chute  system. 

ft/  sec 

WE 

W 

e 

Total  capsule  entry  weight. 

pounds 

WHSD 

Array  of  corresponding  heat 
shield  weights. 

— 

WRING 

Array  of  weights  of  rings. 

— 

WSTR 

Array  of  corresponding  structure 
weights. 

— 

XA 

XA 

Mole  fraction  of  Argon  in  the 
atmosphere. 

~ 

XC 

xc 

Mole  fraction  of  CO^  in  the 
atmosphere. 

— 

XCGMIN 

X°gmin 

Minimum  overall  CG  require- 
ment. 

feet 

XD 

XD 

Dynamic  opening  shock  load 
| factor  on  drogue  chute. 

— 
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Name 

Preset 

Value 

Symbol 

Parameter 

Units 

XMC 

XMC 

Dynamic  opening  shock  load 
factor  on  main  chute. 

XN 

XN 

Mole  fraction  of  in  the  at- 

mosphere. 

- 

X(D 

X 

0 

Mole  fraction  of  O^  in  the  at- 
mosphere. 

— 

XRING 

» 

Array  of  x- coordinates 
specifying  location  of  rings. 

— 

XX 

X 

Abcissas  for  general  shape. 

feet 

ZD 

ZD 

Drogue  chute  deployment 
altitude. 

feet 

ZMC 

ZMC 

Main  chute  deployment 
altitude. 

feet 

B.  INPUT  PROCEDURES 


1.  Heat  Shield  and  Structural  Shell 

a.  The  body  sections  are  specified  in  the  array  SECTN  m the  order  m 
which  they  appear  on  the  vehicle.  The  specification  for  each  section  is 
an  integer  between  1.  and  13.,  the  correspondence  being  as  follows: 


NUMBER 

1. 

2. 

3. 

4. 

5. 

6* 

7. 

8. 

9. 


INPUT  REQUIRED 


SECTION 

NOSE  SPHERE 

TORUS 

CONE 

TENSION  SHELL. 

GENERAL  SHAPE 

TORUS 

CYLINDER 

FLARE 

TORUS 
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RN,  THN 
RSN 
THC 
BETA 

TH2G,  TH3G,  X,  R 

RSC,  RC 

LC 

THB 

RSB 
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NUMBER  SECTION  INPUT  REQUIRED 

10.  TORUS  RSB 

11.  AFTCQNE  THA 

12.  AFTSPHERE  RA 

13.  BASE  RT 


The  nose  sphere  must  always  be  the  first  section,  l.  e.  SECTN  (1)  = 1. 
A vehicle  consisting  of  a nose  sphere,  cone,  aftcone,  and  base  would 
be  specified  as  SECTN  = 1.,  3.,  11.,  13.  The  individual  sections 
are  depicted  in  Figures  1 and  2. 

b.  Body  Section  6 can  be  omitted  or  included  only  together  with 
Sections  3,  4,  and  5. 

c.  Body  Section  9 can  be  omitted  or  included  only  together  with 
Section  8. 

d.  The  body  radius  Rc  must  always  be  specified 

e.  The  body  angle  input  0^(THA)  describing  the  aftcone  section  must 
be  input  with  a minus  sign  to  be  consistent  with  the  coordinate  system. 

f.  For  the  tension  shell  jS  (BETA)  and  Rsc(RSC)  must  be  specified 

g.  For  the  general  shape  the  initial  and  final  body  angles  f?2G  (TH2G), 
and  the  approximate  x and  r coordinates  of  that  section  must  be  speci- 
fied A maximum  of  25  and  a minimum  of  3 points  can  be  specified. 

h.  If  the  Section  2 is  deleted,  then  the  initial  angles  (3  (BETA),  6 
(THC),  and  0£(-,  (TH2G)  must  be  equal  to  the  nose  cap  section  body 
angle  0^,  (THNj. 

i.  For  any  of  the  body  sections  specified,  all  of  the  corresponding 
utilized  body  parameters  must  also  be  specified,  i.  e.  as  an  example, 
if  the  aftcone  section  is  specified,  then  0 ^ (THA),  R (RA),  and  RgB 
(RSB)  must  also  be  specified.  The  body  parameter  Rg  (RB)  need  not 
be  specified  unless  a flare  section  is  used. 

j.  For  each  body  section  specified,  there  must  be  a corresponding 
unit  heat  shield  and  structure  weight.  These  are  specified  m the 
arrays  WHSD  and  WSTR  in  the  same  order  as  the  section  appears  m 
SECTN. 
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k A total  vehicle  entry  weight  Wg  (WE)  must  always  be  input 

1.  A set  of  computer  input  forms  are  provided  for  the  user.  All  the 
data  shown  on  the  form  is  keypunched  when  the  variable  is  supplied 

2.  Descent  System 


a.  Each  of  the  three  options  are  individually  specified  by  utilizing 
the  sentinel  DESSYS  : 

1)  Two- chute  drogue-main  option  DESSYS  = 1. 

2)  Single- chute  main  option  DESSYS  = 2. 

3)  Drogue- retr or ocket  option  DESSYS  = 3. 

b.  When  to  jettison  the  heat  shield  and  structure  in  the  two  chute 
drogue-main  system  and  single  chute  system  is  specified  by  the 
sentinel  JET: 

1)  Jettisoning  at  main  chute  deployment  JET  = 1. 

2)  Jettisoning  just  prior  to  impact  JET  = 2. 

c.  Drag  coefficients  of  the  vehicle  (CDV),  drogue  chute  (CDD),  and 
the  main  chute  (CDMC)  are  input  as  a function  of  Mach  number.  As 
an  example* 


MACH  = 0.  0, 

3.  0, 

5.  0 

CDV 

= 1.  0, 

1.  5, 

1.  6 

CDD 

o 

-j 

0.  8, 

0.9 

CDMC  = 0.  6, 

0.  6, 

0.6 

d.  The  parameters  used  for  calculating  the  atmosphere  and/or  tra- 
jectory are  input  for  all  options.  These  parameters  list  nine  and  are 
GSL,  TSL,  TS%  RHOSL,  FALR,  XN,  X0,  XC,  and  XA. 

e.  The  main  chute  trajectory  for  DESSYS  Options  1,  and  2.  is  cal- 
culated based  on  a required  vertical  input  descent  velocity  (VV).  The 
horizontal  wind  velocity  component,  however,  is  not  accounted  for. 
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f.  The  retrorocket  system  is  designed  on  a specified  input  velocity 
(VIMP).  Horizontal  wind  velocity  can  be  accounted  for  by  the  input 
(VELW),  The  input  (VV)  is  not  an  input  for  this  option. 

g.  The  minimum  size  drogue  chute  input  DDMIN  must  be  specified 
for  the  drogue-main  option  and  the  drogue- retro  option.  There  is  no 
requirement  as  to  how  small  or  how  big  this  input  should  be.  Note 
however,  if  a smaller  drogue  is  actually  required  (in  the  drogue-main 
option),  the  minimum  input  value  is  utilized. 

h.  The  minimum  drogue  diameter  input  DDMIN  is  the  actual  size  of 
the  drogue  chute  for  the  drogue- retrorocket  option.  There  is  no  itera- 
tion involved  in  this  option. 

i.  The  minimum  size  main  chute  input  DMCMIN  must  be  specified 
for  the  drogue- main  option  and  the  single  main  chute  option.  There  is 
no  requirement  as  to  how  small  this  input  should  be.  Note  however, 

if  a smaller  main  chute  is  actually  required  (for  either  option),  the 
minimum  input  value  is  utilized. 

j.  The  maximum  size  mam  chute  input  DMCMAX  must  be  specified 
for  the  drogue-mam  option  and  the  single  main  option.  If  the  first  pass 
design  requires  a chute  which  exceeds  DMCMAX,  then  a cluster  of 
chutes  will  automatically  be  employed.  Note,  DMCMAX  must  be  greater 
than  DMCMIN. 

k.  Additional  specific  inputs  to  be  specified  for  the  retrorocket  are 
as  follows*  ISP,  MR,  RH0R0C,  VIMP,  VELW,  LRDR,  and  DLVFAC. 

l.  Parachute  data  suitable  for  input  are  given  in  References  2 and  3. 
Impact  Attenuation  System 


a.  Each  of  the  two  options  are  individually  specified  by  utilizing  the 
sentinel  IMPSYS  : 

1)  Lenticular  option  IMPSYS  = 1. 

2)  Cone- cylinder  option  IMPSYS  = 2. 

b.  A sphere  can  be  utilized  as  the  lander  in  the  lenticular  option  by 
specifying  6j ^ (THM)  as  90  degrees. 

c.  The  cone  portion  of  the  internal  payload  can  be  deleted  in  the  cone- 
cylinder  option  by  specifying  Lco/Rco  (LC0RC0)  as  zero. 
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d.  The  cylinder  portion  of  the  internal  payload  can  be  deleted  in  the 
cone-cylinder  option  by  specifying  ECy]/Rco  (UCYRC0)  as  zero. 

e.  If  it  is  desired  to  neglect  the  anistropy  of  the  crushable  material, 
merely  set  aQ  (A0),  a2  (A2),  and  a3  (A3)  equal  to  zero. 

f.  The  specified  input  value  of  (THM)  cannot  exceed  90  degrees. 

g.  The  specified  input  value  of  Eco/Rco  (LC0RC0)  must  be  equal  to 
or  less  than  cot  dco. 


h.  The  inputs  for  the  crushing  stress  PSI  and  ALPHA,  relate  the 
stress  to  the  density  as 

Sm  = [ (ALPHA)  pJl/PSI 

where(Sm)  is  the  maximum  crushing  stress,  (pc)  is  the  density  in  slug- 
ft and  ALPHA  and  PSI  are  empirical  constants.  A summary  of 
crushup  data*  is  given  in  Figure  6,  from  which  the  following  correlations 
for  ALPHA  and  PSI  occur: 


MATERIAL 

ALPHA 

PSI 

A1  Honeycomb 

2090 

0.  554 

Plastic  Foams 

3980 

0.  662 

Balsa  Wood 

1. 65  x 1010 

1.81 

4.  Lander  Packaging  Design 

a.  Additional  required  inputs  for  the  lander  packaging  design  are  as 
follows:  THS,  XCGMIN,  RCHUTE,  EF,  RH0F,  TFMIN,  and  SIGCYF. 


C . OUTPUT  DEF INITIONS  ^ 


External 

Internal 

Symbol 

Parameter 

Units 

Name 

Name 

AD 

AD 

ad 

Area  of  drogue  chute. 

ft2 

ALT 

Z 

z 

Altitude. 

feet 
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CRUSHING  STRESS, psi 


F.gure  6 CRUSHING  STRENGTH,  OF  IMPACT  MATE  RIALS 


External 

Name 

Internal 

Name 

Symbol 

Parameter 

Units 

AMC 

AMC 

amc 

Main  chute  area. 

ft2 

AREA 

AREA 

A 

Area. 

ft2 

DELXF 

Axf 

Distance  between  vehicle 
nose  and  payload  nose. 

feet 

DD 

DI 

dd 

Diameter  of  drogue  chute* 

feet 

DMC 

DMC 

dmc 

Diameter  of  main  chute. 

feet 

DR 

DR 

dr 

Diameter  of  retrorocket. 

feet 

GAMMA 

GAM 

y 

Flight  path  angle. 

degrees 

GPEAK 

PGCALC 

Maximum  value  from 
PGCAL  array. 

g 

GPEAKS 

PGCAL 

Array  of  impact 
acceleration  values  . 

g 

IX 

R0LL 

lx 

Moment  of  inertia  about 
the  x-axis. 

slug  -ft2 

IXT0TCG 

Roll  moment  of  inertia 
of  the  entire  vehicle 
about  the  c.g. 

slug -ft2 

IY 

PITCH 

i 

y 

Moment  of  inertia 
about  the  y-axis. 

slug-ft^ 

IYT0TCG 

Pitch  moment  of  inertia 
of  the  entire  vehicle 
about  the  c.g. 

slug -ft2 

LC0 

L 

CO 

Length  in  the  internal 
payload  cone. 

feet 

LCYL 

^cyl 

Length  m the  internal 
payload  cylinder. 

feet 

LR 

XLR 

lr 

Length  of  retrorocket. 

feet 
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External 

Name 

Internal 

Name 

Symbol 

Parameter 

Units 

MACH. 

XMAC 

M 

Mach  number. 

— 

MC 

mc 

Mass  of  the  crushable 
material. 

slugs 

MI 

mi 

Mass  of  the  internal 
- payload . 

slugs 

PD 

PD 

PD 

Opening  shock  load 
on  drogue  chute. 

pounds 

PMC 

PMC 

PMC 

Opening  shock  load 
on  main  chute  » 

pounds 

R 

R 

r 

Ordinates  of  all  points 
computed  along  the 
body  surface. 

feet 

R 

R 

Small  radius  of  the 
internal  payload  cone. 

feet 

R1 

! 

R1 

Inner  radius  of  the 
crushup  segment.  i 

feet 

R2 

r2 

Outer  radius  of  the 
crushup  segment. 

feet 

RC£> 

Internal  payload 
cylinder  radius . 

feet 

RH(DC 

Pc 

Density  of  the  crushable 
material  utilized. 

slug/ft^ 

S 

Sm 

Maximum  crushing  stress. 

lb/ft2 

SECTI0N 

Section  specification  number. 

— 

T 

T 

c 

o 

Total  time  of  descent 
system  trajectory. 

; seconds 

T 

cc 

Thickness  of  crushup 
material. 

feet 

1 
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External 

Name 

Internal 

Name 

Symbol 

Parameter 

Units 

TD 

T 

*D 

Total  time  on  the 
drogue  chute. 

seconds 

TF 

TF 

Mam  chute  filling  time. 

seconds 

TIME 

T 

Time, 

seconds 

T (INS) 

Thickness  of  the  internal 
structure  face  sheet. 

inches 

VEL 

Y 

V 

Velocity. 

ft/ sec 

VFINAL 

VFINAL 

Vo 

Final  resultant  descent 
velocity  for  the  drogue 
retro  system. 

ft/sec 

W (LBS) 

Itemized  section  weights 
of  the  internal  structure. 

pounds 

W INTERIS 
STRUCK 

JAL 

rURE 

Total  weight  of  the 
internal  structure. 

pounds 

WD 

WD 

! 

WD 

Drogue  chute  system 
weight. 

pounds 

WF 

WF 

WF 

Final  weight  for  sizing 
retro  system. 

pounds 

WHS 

WHS 

Unit  weight  heat  shield 
factor  times  area. 

pounds 

WI 

WI 

Initial  weight  for  sizing 
retro  system. 

pounds 

WL 

WL 

V 

Landed  weight. 

pounds 

WMC 

WMC 

WMC 

Main  chute  system 
weight . 

pounds 

WST 

WST 

Unit  weight  structure 
(includes  weight  factor) 

pounds 
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External 

Name 

Internal 

Name 

Symbol 

Parameter 

Units 

WR 

WR 

WKR 

Entry  weight  less  heat 
shield  and  structure  weight. 

pounds 

WRQ5C 

WR0C 

Retrorocket  system 
weight. 

pounds 

WHST0T 

WHST0T 

Total  heat  shield  weight. 

pounds 

WSTT0T 

WSTT0T 

Total  structural  shell 
weight. 

pounds 

WSTRAPS 

WSTRAP 

^STRAPS 

0.05(Wd  + Wmc)  . 

pounds 

X 

X 

X 

Abscissas  of  all  points 
computed  along  the  body 
surface . 

feet 

XCGH/S 

XCGH/S 

j 

1 

C.g.  position  of  the  heat 
shield  and  structural  shell. 

feet 

XCG 

XCG 

*NN 

Centroid  of  each  section 
from  the  nose  of  the  vehicle. 

feet 

XCG0 

XCG 

o 

Total  vehicle  center  of 
gravity  measured  from 
vehicle  nose. 

feet 

YDD/G 

PGCALC 

y 

imp 

Peak  impact  acceleration. 

g 

Y/-R2  VAL 

UES  YR2 

1 

y/R2 

Nondimensional  p_arameter. 

D.  SAMPLE  PROBLEM 

1.  Statement  of  Problem 


Determine  the  residual  weight  for  the  blunt  cone  configuration  used  in  the 
sample  problems  of  Programs  1880,  1881,  1884,  and  1886. 

The  descent  system  is  to  utilize  a single  main  chute  system.  The  chute 
is  to  be  deployed  at  Mach  1.2  at  an  altitude  of  21451.  feet  and  a flight 
path  angle  of  -35. 19  degrees.  The  heat  shield  and  structure  is  to  be 
jettisoned  at  its  deployment.  Vertical  impact  velocity  is  to  be  60  ft/ sec. 
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The  lander  geometry  is  to  be  a spherical  shape  utilizing  balsa  wood  as  the 
crushable  material.  The  horizontal  wind  velocity  is  30  ft/sec  and  the  maxi- 
mum impact  acceleration  is  not  to  exceed  1000  g.  The  balsa  density  cannot 
exceed  0.4  slug/ft3  or  be  less  than  0.  1 slug/ft3. 

The  internal  payload  is  to  have  a packaging  density  of  1.  5 slug/ft3^  and,  the 
parachute  system  packaging  density  is  35  lb/ft3.  Internal  structure  is  to  be 
constructed  of  aluminum  face  sheet  with  a minimum  thickness  of  0.010  inch. 
Final  design  is  to  have  a maximum  center  of  gravity  position  of  3.  75  feet. 

2.  Input  Form 

The  input  data  required  is  shown  on  the  following  pages.  Decimals 
are  used  for  all  input  and  all  the  variable  names  are  keypunched  wherever 
an  input  quantity  is  given.  An  additional  unused  input  form  is  provided  in 
the  following  page  for  the  program  user. 

3.  Output 

The  output  is  shown  on  the  following  pages.  The  keypunched  data  are  listed  and 
should  be  verified  with  the  input  form. 

The  vehicle  coordinates  (X,R)  are  provided  for  use  in  drawing  the  con- 
figuration. Detailed  section  data  are  given  regarding  the  surface  area, 
heat  shield  weight,  structure  weight,  moments  of  inertia,  and  center  of 
gravity.  The  coordinates  refer  to  the  exterior  of  the  structural  shell 
and  are  used  to  evaluate  all  the  weights  by  considering  that  the  thicknesses 
of  the  structure  and  heat  shield  are  small  with  respect  to  the  size  of  the 
vehicle. 

The  heat  shield  and  structural  weights  for  the  individual  sections  are  totaled 
and  the  remaining  weight  (WR)  is  given.  The  overall  center  of  gravity  of 
the  heat  shield  and  structure  is  also  given. 

The  trajectories  during  descent  on  the  drogue  and  main  chutes  are  given, 
including  velocity,  Mach  number,  flight  path  angle,  altitude,  and  density. 

The  parachute  designs  are  given  in  terms  of  their  area,  diameter,  and 
weight.  Other  pertinent  information  is  given,  including  the  parachute 
filling  time,  opening  shock  load,  and  the  dynamic  pressure  at  chute  deploy- 
ment. The  number  of  clustered  chutes  required  for  the  mam  system  is 
also  given,  as  well  as  the  estimated  parachute  harness  weight  and  the 
landed  weight  (WL). 

The  impact  attenuator  design  results  indicate  the  density  of  the  attenuator 
material,  the  peak  deceleration,  the  crush  up  stroke  and  history  of  de- 
celeration versus  stroke.  The  size  of  the  impact  attenuator,  the  mass  of 
crush-up,  and  the  residual  mass  are  determined.  Details  of  the  internal 
structure  are  also  provided. 

The  overall  vehicle  center  of  gravity  and  moments  of  inertia  are  finally 
determined  and  given  as  output. 
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DIGITAL  COMPUTER  INPUT 

[PROBLEM  NO  1882 

| programmer 

REQUEST  FORM 

[title  Packaging  and  Moments  of  Inertia 

rfEMO  NO  SECTION  NO  WORK 

JRDERNO  (E240USEO 

NLY)  REQUESTED  BY  EXT  EST  TIME 

PAGE  ] 

OF  3 PAGES 

$INPUT 

V 

ALPHA 

_ 

, ISP 

, STRFAC 

- 

AO 

= 

, IYR2 

- 

, TFMIN 

A1 

_ 

, JET 

~ 

, THA 

= 

A2 

_ 

, LC 

, THB 

= 

A3 

= 

, LC<2RC0!> 

, THC 

= 

BETA 

_ 

, LCYRCCS 

, THC0 

DELTA 

_ 

LRDR 

- 

, THM 

= 

DELMIT 

, MACD 

- 

, THN 

= 

DLVFAC 

_ 

, MACMC 

- 

, THS 

- 

DESSYS 

MCVEL 

_ , TH2G 

= 

DDMIN 

- 

MR 

= 

, TH3G 

= 

DMCMI3ST 

- 

, PSI 

f TN 

s 

DMCMAX 

, RA 

, TSL 

= 

DRVEL 

= 

, RB 

, TST 

= 

EF 

_ 

, RC 

= 

, TZERG 

= 

EPSILN 

= 

, RCHUTE 

= 

, VELW 

= 

EPS1 

_ 

, RH0CM 

= 

, VIMP 

= 

EPS3 

= 

, RH0CMI 

- 

, vv 

= 

FACT0R 

_ 

, RH0F 

- 

, WE 

a 

FALR 

_ 

, RH0I 

, XA 

= 

FREQ 

- 

RHQ5R0C 

- 

, xc 

= 

FREQ2 

_ 

, RH0SL 

, XCGMIN 

b 

FREQ3 

_ 

, RN 

, XD 

= 

GAMD 

- 

, RSB 

- 

, XMC 

GAMMC 

, RSC 

, XN 

= 

GIMP 

_ 

, RSN 

= 

, X0 

= 

GSL 

= 

, RT 

s 

ZD 

= 

IMPSYS 

_ 

, SIGCYF 

B 

, ZMC 

DIGITAL  COMPUTER  INPUT 
REQUEST  FORM 

PROBLEM  NO 
1882 

MEMO  NO 

SECTION  NO 

CONTINUATION  SHEET 
PAGE  2 OF  3 PAGES 

NRINGS 

DNBND 

UPBND 

SECTN 

WHSD 

7 

, 

9 7 9 9 

WRING 

9 

9 

. 

WSTR 

) 

9 

XRING 

9 

9 

RR 

9 

7 

9 

9 

, 

XX 

9 

9 

- 

9 19  9 

t 

CDD 

- 

CDMC  - , 

, 

, 

, 
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ODER  Not 

(oh 

DIGITAL  COMPUTER  INPUT  PRO0L 

EM  NO  1882 

j PROGRAMMER 

REQUEST  FORM  title 

Packaging 

and  Moments 

of  Inertia 

EMO  NO  SECTION 

K420 

NO  WORK  ORDER  NO  (£240  USE  ONLY} 

W3 05-050- 0005 

REqUESTEO  BV 

P.  Levine 

EXT  EST  TIME 

2996 

PAGE  1 of  3 PAGES 

$INPUT 

ALPHA 

_ 

1.65E10  , 

ISP 

STRFAC 

— 

1.5  . 

AO 

- 

1.0 

IYR2 

- 

0.4 

TFMIN 

= 

0.010 

A1 

= 

JET 

= 

1.0 

THA 

= 

-80.  - 

A2 

= 

9 

LC 

= 

0. 

THB 

= 

A3 

= 

9 

lc<2rcg> 

= 

THC 

60.0 

BETA 

= 

o. 

LCYRCCS 

- 

THCtf 

- 

DELTA 

- 

.01 

LRDR 

- 

THM 

- 

90.0 

DELMIT 

- 

l.E-5 

MACD 

= 

THN 

= 

60.0 

DLVFAC 

= 

9 

MACMC 

- 

1.2 

THS 

= 

0.2 

DESSYS 

- 

2.0 

MCVEL 

- 

50. 

TH2G 

- 

0. 

DDMIN 

— 

MR 

=' 

TH3G 

= 

0. 

DMCMIN 

— 

10/0 

PSI 

- 

1.81 

TN 

— 

2.  1 

DMCMAX 

— 

80.0 

RA 

= 

0. 

TSL 

- 

200.0 

DRV  EL 

= 

50.0 

RB 

- 

0. 

TST 

100.0 

EE 

= 

1.0E7 

RC 

= 

7.5  ‘ 

TZER0 

- 

EPSILN 

= 

0.75 

RCHUTE 

- 

35.  0 

VELW 

= 

30.0 

EPSl 

— 

.001 

RH0CM 

= 

0.40 

. VIMP 

EPS3 

= 

.001 

RH0CMI 

= 

0.  1 

W 

60.0 

FACTOR 

— 

.2 

RH0F 

= 

172. 

WE 

= 

1850. 

FALR 

— 

1.11367  , 

RHCSl 

= 

1.5 

XA 

= 

0. 

FREQ 

- 

.5 

RH0RC5C 

XC 

.999 

FREQ2 

= 

2. 

RHtfSL 

- 

2.56E-5 

XCGMIN 

- - 

3.75 

FREQ3 

S 

2. 

RN 

- 

1.25 

XD 

= 

GAMD 

- 

RSB 

- 

0.15 

XMC 

ST 

1.8 

GAMMC 

- 

-35.19  , 

RSC 

- 

0. 15 

‘XN 

= 

.001 

GIMP 

- 

1000.0  , 

RSN 

= 

0. 

X0 

-y 

0. 

GSL 

s 

12.3 

RT  - 

3.75 

ZD 

IMPSYS 

- 

1.0 

SIGCYF 

= * 

6.0E4 

ZMC 

- 

21451. 

12/01/64 


MBLOR  S2SIK 
TIILO*  S3B1K 
SIBLOR  SAOTl  I) 
S|HLD»  SRP1« 
SIBLOR  SGFMSIt 
M8L0R  STFNSH 
t J BLOK  SFINOR 
tlBLPR  S0FP07 
4 [SLOP  SACAMS 
TIRLDR  SPFAK 
“SIRLOR  S»7B3 
SIBIDR  SR13IN 
t [ BLOB  SR7B34 
TlBLDR  SATMOS 
tOATA 


12/01/64 
12/01/A4 
(2/0 t/*4 
12/01/6 A 
12/01/64 
12/01/64 
12/01/44 
12/01/64 
12/01/64 
12/01/44 
12/01/64 
12/01/64 
12/01/64 
12/01/64 


S2BL3000 
S3BL3039 
SARTOOOO 
SRP3300D 
SGENOOOO 
STEM3000 
SFIN3000 
SOFROOOO 
S ADA  3000 
SPEA3D00 
SR2BOOOO 
SBL33000 
5R293000 
SAIHOOOO 


IBLDR 


12/01/64 


‘ SYSTEM 

FILE  BLOCK  ORIGIN 

"PtLft 1.  — UNiros  ‘ 

7.  UNTT04 

FILE  'LIST  "ORIGIN 
PRF-EXFCUTION  INITIAL  17 ATION 
CALC  ON  OBJECT  PR0GP4M 
OBJECT  PROGRAM 


00000  THRU  02717 
02720 


02750 
02754 
02777 
03004  THRU 


60547 


OECK 


ORIGIN 


CONTROL  SFCTIONS  I/NAME/*NON  0 LENGTH,  1L0C l=DELFTED» 


RFFFRFNCFDJ 


1.  1802  03004 

2.  SPBCiT"  12262  * 

3.  S39LK  16766 
5."  SARTIU“244'6'2 
5.  SRP346  27355 

~~67  SGFNSH  30027"" 

7.  STFNSH  30545 
8”  SFINOR  31533 
9^  SOEPO?  32704 

10.  SAOAMS  “33'305 

11.  SPEAK  36610 
12“ Sr2B3~  37140"  " 

13.  SBL3IN  37402 
1'4.  SR28"34  40141 

15.  SATMOS  41112 

_ rs7“'0(CDfr“3n'?o  s 


17.  .IODEF  42165 


“ TSV“.L«C  "42406 


“ IOT  ;PPTKP  425*"5 

20.  .ERAS.  42755 

21.  7XCC.  “427 6T 

22.  XIT  42765 

*23T"FXFH "47766 

24.  FOUT  43416 
“257  FFNV 43760 


”26.  FIOS 


///  /l 774341 
///  /1 774341 

BLOCKS  25624 
ARTL'J  27204 
RP3467  27757 

6FNSHP  30437 
TENSHL  31367 
F1N0RV  37505 
///  /{ 774341 

‘ A0AHS4  36450 
PEAK  37055 
R203  * 37343 

BL3TNT  40031 
* *R2B34  *0724 

ATMOS  41374 
— 71  XSTft  41505"  * 
.LXCAL  41574  * 
•CLSF  42156 
.OFFIN  42165 
.WRITE  42201 
.LFBIK  42252 

7G0S  " ' 4733V  " 

.ET34  42401 

”" .LXSFL  47406 
•LXINO  42532  * 
“.FFPT.  42545  * 
6.1  42755 

— errr  42751 

FX IT  47765 
.FXFH.  42766 
•FOUT.  43416 
.FCON.  43760 
.FOX 2 44025 

08C2O  44206 

-D0RS1  44552 
.ANPT  44712* 
.FLT  45224 
-.LOUT  45633  “ 
.LIST  46416 
“WIDTH  46523 
•OOFLG  46561 
.riOS.  46605 
.FILL.  46770 


12246  ♦ 

RL0CK2  16265 


0ERQ2  33253 


~71XSTP“  41511  “ 
.LXFRR  41574 
. LFRL  42157  * 
•ATTAC  42171  * 
•8SR  42211  * 
•ITSX  42255  * 
*7G0  *42340*  ' 

LXCSEL  42407 
.LXDIS  42535  * 
•rpour  42674 
6.7  42756 

CC.2  42762 
EXIT.  47765  * 
•FXOUT  43323 

.FCNV.  44003 
.DSC  44027 
OOSW  44216” 
-0DRS7  44564 
•ONPT  44777 
.OEXPN  45314 
.OOUT  4565? 
.DONE  46427 
.GAIN  46524 
NOD  46567 
.FSEL.  46745 
• FCLS  44772  * 


. LXOUT  41557 
. DBCLS  41756 
.LUNB  42150 
.CL3S6  42173 
•RE A DR  42221 
. AREA1  42257 
.DERR  42354 

•LXTST  42412 
-LXFLG  42  536 
•FPARG  42702 
E.3  42757 
CC.3  42763 

.FXARG  43331 

.ENDFS  44016 
. DBC8  44150 
.OOF  IX  44225 
.01  44557 
.LNTP  45003 
•FXO  45315 
. XCF  45733 
• OUTRF  45473 
.GAINl  46525 
. PEX  46553 
-FILR.  46751 
.FOPN  45776 


.LXRTN  '41571  rFEXTT  4T37T"* 

.LX ARG  42175  .LO  42150  * 

• DFOUT  42161  ’ ' * - - — 

.OPEN  42175  .RFAO  42177 

.RELES  42223  * .CAREA”  47234 

. LUNRL  42275  .ENTRY  42301 

.NOPXT  47355  7CTJHX1  4ZTS7 

. LXOVL  42452  * . LXRCT  42467  * 

.LTCH  42537 

/.COUNT/  42704  *”  OVFLOW  42750  * — 
E.4  42760 

CC.4  42764"”| — 


/.OPTW./  43405 

.CNVSW  44070  1 

. D8C9  44153  I 

' . FI XSW  44233 

.02  44571 

.AOUT  4505? 
.HOUT  45445 
.TEST  46410 
.8JF  46521 
.FBDBF  46535 
FEXP  46564 
.FRTB.  46760  * 
REOF  4700?  * 


.FOX I 44024 
. DBC 10  44160 

"TDDRC  447TD 

.FFRP2  44656  * 
.DFLT  45070 
.INTO  45515 
•KOUNT  4641 3 
•QSTO  46522 

:DOnFC  455F0 

•DIG  46565 
."FRTD.  46765  * 
.TOUT.  47145 


34- 


27.  FtnH 
“?HTT=WO— 
29.  FHftO 
35."  FWRfl 

31.  FROU 

32.  US05 


37.  JTNOR 
3'8.  JRSTP 
39.  FLOG 
" 40.  "FXP~F“ 
41.  FSCH 


47241 

-svzzr- 

50266 

5*312 

50717 

-wmr- 


53212 
5331 7 
53474 

"53727 

53621 

"53762 

54107 


43.  FATH  54470 


~nreet)  " <7153  * 

.Finn.  47241 
~ TPHROl-  50242 
.FHRU.  50246 
. F WR  f)7  55TT2 

.FRDU.  50717 
~ .UN57T~  "50770* 
.UV06.  50761 

■rreo: — 50767  ~ 
ASINR  53272  * 
SCIJB'R  53777"* 
ATANOR  53502 
~ ArS  fHR  5357  0 
ALqC10_53621  « 
“EXP  53772  ' 
COS  54102 

W3r3 

A TAN  2 54420 

rX‘P3.  54"626'" 
.L (0 ) 54753 

■ CLns".  55205  " 
.0P4  55543  * 

.RFAO.  55663 
.FFFIT  56227 
- 5EI  S9‘"  77450“ * 
.TCHEX  60544 


— 7FREST  70615  i 


ASIN 
" ACOS 
ATANQ 


53301 
53406 
53511  < 


♦0P7  55574  1 

“.’REftt"  55706 
. GTIOX  56250 
.3 SR.  60061 

•8ASI0  60547  4 


•NHLST 

ASINF) 

acoso 


514S3 
53310  < 
53415  i 


ATANQO  53520  * 


•TFOR  55042 
.SHI  55432  * 
-OP9.7  55610  i 


. FCKSI  47147  4 


•NARE.  52566 


.OEFI.  55122 
. SH9  55474“  4 

.RISE.  55662 
"7MNTIA  "57076"* 
-RE7  57005  * 


.FOTOF  60206  .ET0F3  60714“  * 


. IMTAD  52567 


. JOI NX  55166  < 
.tlPFN.  55515 

• RFR7*  55662 
"TEnFFX — 56177"  * 

.ENOTR  57446 

• SV/tTC  * "60243 


I/O  BUFFERS 

60550  THRU  77313 

UNUSEO 

CORF 

77334  THRU  77433 

$INPUT 

SECTN 

= 

0.10000000F  01 » 

0.30000000F  01, 

0. 60000 OOOE  01, 

0. 10000000E  02, 

O.ltOOOOOOF  02, 

0. 1 3000000E  02. 

RN 

= 

OT12700OOOF  01. 

"HSU 

o njOTTOOTUE=357 

■rSc 

= 

u.i»uuuuoo«  oo. 

“45B 

= 

ff.TsO'ffooo'O'E- 057 

"TO 

= 

ovo'tfhon'isoTfE^nr; 

THN 

“ 

o"‘6'oo6oo“oof”o?; 

"7HC 

” 

0.6000000  Of:  OH, 

“71 

= 

O.OOOOOOOOF-38, 

THA 

-0. 30000000F"b^ 

O.ODOOOOOOE-18,  - 
0.  000000006-19, 

“'OT'O  0 050 0 0 0 E-3  07  ~ 
0. OOOOOOOOF— 38 , 

OT00500000E-7R7" 

O.OOOOOOOOE-38, 

XX 

= 

0. 0 000000 OE— 38, 

0. 000000006— 38, 

O.OOOOOOOOE-3~47 

o.noooooooE-38, 

575ooooooofF3S7 

0. 00000000 F— 33, 

"5.o0o0o00'5E=rB7 

0.000000006-18, 

575WffO“5  0“ffE^3“77 
O.OOOOOOOOE-38, 

"57 555505  Oof  - 3'eT" 
0.000000006-38, 

o . ocTiwrt'crfl 

07000500506-38, 

0. 007)00  00 OE^l  87 

■ 07  OOOOOOOOF -13, 

O.OOOOOOOOE-S8 , 

07055 050006-38, 

0.0 00 0055 OF  -3B , 

RR 

0.0000000 OF -38, 

07000  000  0 0 E - 3‘87 
0. OOOOOOOOF— 38, 

~ 0755505501)7-387 

O.OOOOOOOOE-3S, 

O.OOOSDOOOE^-SS, 

0.00000500E-38, 

o . ootionoW'”-3Vi 
0. 000000006-38, 

0 . OOOOOOOOE-3  8 , 

5700000000  7^3  8, 
O.OOOOOOOOE-38, 

0.  OOOOOOOOE— 38 , 

0. 000050006-38, 

5757T0Dfl5“0  Of^S’B , 

57000 0000 nE^OT  “ 

07  OWOO  00  OF -3  8 ,“ 

0.  OOOOO'OOCE^B , 

“ 0700000500E-“38"r 

TC 

= 

tJ7DT)00(IOirDE=38, 

"7B 

” 

0*0  OOOOOOUfc“d H t 

"W 

= 

□ ♦ f ^OUUCJUOfc  01  V 

in 

= 

O’.'a  /SlHlugot-- 0T7 

BETA 

0*0000000l1h- “*»»• 

"THZB 

" 

o.  oiiooouoU*--3B , 

0.09000000E-38, 

-0*  OOOOOOOOF- 1 

-0.0  0000 OOOE '19, 

-O.OOOOOOOOf-19, 

-0* OOOOOOOOF— 19* 

WSTR 

= 

0.507000006  00, 

0 .526 000 COE  00, 

0 . 526000005  00, 

0.52600000E  00, 

0 .405000006  00, 

o.ibmiuuuot  or 
"XT85D0OTIF  B4 
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UR1NG  = -O.OOOOOOOOE-19,  -O.OOOOOOOOE-19,  -O.OOOOOODOE-19,  -O.OOOOOOOOE-19,  -O.OOOOOOOOE-19, 


TTRC 
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X COORDINATES R COORDINATES 


0.0000E-39 

O.OOOOE-39 

l.Ofte'iE-O? 

4.2S93F-02 

l.6316k-01 

3.2352E-01 

XI  = 

■"9.515  IC-OJ 

1.6747E-01  R1  = 

4.  703"5E~O“1 
6.2500E— 01 

‘W- 

4.0'93%T  00  R3  = 
4.11736  00 

7.4260k  UU 

7.4561E  00 

4. 1484E  00 
4.1R45E  00 

7.4799E  00 
7.4949E  00 

' X4  = 

4.2234E  00  R4  = 
4.2747E  00 

7.5000E  00'" 
7.49I0E  00 

4.31Q6E  0(5 
4.3533F  00 

7 «4649E  00 
7*4Z50E  00 

X8  = 
X9  = 

s".0104E  00  R9  = 

7.3760E'  flo 
3.750 08  00 

STfiTTWCB 
5.0104E  00 

2.  8125E'00 
1.87S0E  00 

X10  = 

5.0104E  00 
5.0I04F  00  RIO  = 

9.3750E-01'" 

0.0000E-39 

SECTION 

APEA 

HHS 

HST 

. IX  IY 

XCG 

"" Ptz 

tLBSJ 

(TfiST 

l SLUG— FT2 ) 

l FT  J 

3 

' 1731536  00 

] .9857E  0? 

1.3153E 
1 .86666 

00 

02 

I77TO03E- 675 
1.5668E  02 

F74  395E- tTZ  TTWTTPijr- 

2.9628E  02  2.4116E 

-03 

02 

8.3734E  "Or 
2.6832E  00 

6 

10 

7737666  075 
9.8114E  00 

679’3475r 

9.2227E 

00  ' 
00 

578  ZCTE^O 
7.74126  00 

‘272  r47E_oi rrmirr 

2.9316E  01  2-4463E 

01 

01 

4.31196  00 

n 

13 

— rrzfiTBTTR 

4.4179F  01 

ff707S075F 

O.OOOOE- 

■39 

-39 

7.8184E  01m 
2.74356  01 

8732016  01  97E954E- 

5-99636  00  2.4408E 

"01 

01 

4T6550F7RT 
5.0104E  00 

TOTAL HFAT  SHIELD  - STRUCTURE  RESULTS 

WHSTOT  = 2.0413F  0?  HR  = 1.3690E  03 

• WSTnvrs 2T7«R*F  02  ”XCWS~^" 37?2D5E"W 


XIW 


~H5UFT 


‘CTHH7T 


ONORFLOH  AT  771  Aft  IN  MQ 

UNDRFIOH  AT  271  SO  IN  HO 

UNORFLOW  AT  2^151  IN  MO 

UNPRFLOH  AT  271 S 4 IN  MO 

UNORFLOHt)AT  27156  tN^MO^ 


'3-7475F~  OTf  li8440E’"02  2T740E=0T  -3^  9 02 9 E- 01  I796498E- 04  r76025E=05" 

5.7475F  00  1.1333E  02  1.682E-01  -4.6467S  01  1.94596E  04  1.6105E-05 

■?T2I'7Sr7J2 STJZJfHFTJI 977566=02 =970  3 TOE- 01 ‘A"5741'6E~'CFJ z:'31Z4F=05~ 

2.9596F  0? 6.0096E  01 8.158E-0? -9.0000E  01  O.OOOOOE-39 2.5660E-0S 


'iSKC- = 375=975T4E-03-IJHC-= — 6.7ZZa6S>lE  01  WML  = 1736 03  aa9E"gZ~m:~ — I725053’3DE—0 5~ WE-* — 1772FTTU5E-' 03~T~" — 2. 9696 168b  02 

TF  = 1.7475143F  00  QMC  = 4.89287376  00  HSTRAPS  = 6.8019444F  00 


-39- 
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RHDC=  4.0000E-01  GPEAK=  6.0878E  02  Y/R7=  1.0284E-Q1 


GPEAKS 

Y/R2  VALUES 

-O.OOOOE-39 

0.0000E-39 

7745986  01 

1.02846—02 

1.4601E  02 

■■HI 

3.0852E-02 

2.7950E  02 

4.1136E-02 

, 

3.41686  02 

5. 147oE— 02 

4.0087E  02 

6. 1704g— 02 

4. 5714c  02 

7.19886—02 

5.1051E  02 

8.22716-02 

5.6105E  02 

9. 25  55  E- 02  

6. 0878 E 02 

1.0284E-01 

SPHERE  OPTION 

R2  = 2.0177003E 

OO  T = 2.7666522E-01  S = 2.6617195E  05  HI  = 3.3159080E  01 

MO  = 4.920 f532E 

TF  = 5.11746- 

00  Y 00/ 1>  = 670tf//f60b  02  KHUL  = 4.000000Ut-01 

-03LESS  THAN  1.OO00E-O2  MINIMUM  GAUGE  FACE  SHEET. 

3.2226b  U2 

INTERNAL  JSTRUCTUR EuE SIGN 

AKfcAI  hi  2 J~  I ( 1 NST  W I LBS  ) 

SPHERE 

3. 809 IE  01  1.0000E-02  5.4597E  00 

W INTERNAL  STRUCTURE  = 5.4597E  00 

-40- 
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in.  COMPUTATIONS 


In  the  following  pages  are  presented  block  diagrams  illustrating  the  operation 
of  each  portion  of  'Program  1882  and  the  engineering  equations  which  are 
solved. 

The  block  diagrams  and  engineering  write-ups  are  broken  down  into  the  four 
portions  of  the  program,  namely;  heat  shield  and  structural  shell,  descent 
system,  impact  attenuation  system,  and  the  lander  packaging  design.  Symbols 
used  precede  the  equations. 

A.  BLOCK  DIAGRAM 

A block  diagram  of  Program  1882  is  shown  below  as  Figure  7. 


86-2953 


Figure  7 BLOCK  DIAGRAM  OF  PROGRAM  1882 
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B.  SYMBOLS 


V al>  a2»  a3 


A 


CD 


d 


D 


E 


g 

I 

SP 


V 

Li 


'cyl 


MR 


Coefficients  of  the  S(0)  equation  in  the  anisotropic  crush- 
up  analysis 

2 

Area,  ft 

Speed  of  sound,  ft/ sec 
Drag  coefficient 

Specific  heat  at  constant  pressure,  Btu/lb 
Diameteri  feet 
Drag  force,  pounds 
Modulus  of  elasticity,  psi 

2 

Acceleration  due  to  gravity,  ft/ sec 

Required  specific  impulse  of  retrorocket  system, 
lb- sec/lb 

2 

Roll  moment  of  inertia  , slug-ft 

2 

Pitch  moment  of  inertia,  slug-ft 

Temperature  gradient  in  the  troposphere  expressed  as  a 
function  of  the  adiabatic  lapse  rate 

Length  of  cylindrical  vehicle  section,  feet 

Length  of  internal  cone  feet 

Length  of  internal  cylinder,  feet 

Temperature  gradient  in  the  troposphere,  °K/ft 

Length'  of  a retrorocket,  feet 

Mass,  slugs 

Mach  number 

Molecular  weight 

Mass-fuel  ratio  of  retrorocket 
-42- 
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Exponent  of  the  S(0)  equation  in  the  anisotropic  crushup 
analysis 

Number  of  chutes  in  a cluster 

Opening  parachute  shock  load,  pounds 
2 

Dynamic  pressure,  Ib/ft 
Vehicle  ordinate  dimension,  feet 

Universal  gas  constant,  89,  51  6 ft^/ sec^-  mole  - K 

Inner  radius  of  lander  payload  package,  feet 

Outer  radius  of  lander  payload  package,  feet 

Aft  spherical  body  radius,  feet 

Flare  body  radius,  feet 

Vehicle  cylinder  body  radius,  feet 

Radius  of  internal  cone  and/or  cylinder,  feet 

Spherical  nose  cap  radius*feet 

Toroidal  radius  adjacent  to  the  flare  cone  section,  feet 

Toroidal  radius  adjacent  to  the  cone  section,  feet 

Toroidal  radius  adjacent  to  the  spherical  nose  cap  section, 
feet 

Aft  cone  base  radius,  feet 

2 

Crushing  stress  of  impact  material,  lb/ft 
Internal  structure  face  sheet  thickness,  inches 
Thickness  of  the  crushable  material,  feet 
Thickness  of  the  parachute  packaging  ring,  feet 
Temperature,  °K 
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Design  impact  velocity  for  the  retrorocket  system  (ver- 
tical and  horizontal  component  included),  ft/sec 

Total  resultant  impact  velocity,  ft/ sec 

Design  vertical  descent  velocity  for  chute  systems,  ft/ 
sec 

Horizontal  velocity  component,  ft/sec 
Unit  weight,  Zb/ft^ 

Weight,  pounds 

Total  vehicle  entry  weight  > pounds 

Entry  weight  less  the  total  heat  shield  and  structure 
weight,  pounds 

Vehicle  abcissa  dimension,  feet 

Centroidal  distance  as  measured  from  the  vehicle  nose, 
feet 

Mole  fraction  of  argon  in  the  atmosphere 

Mole  fraction  of  CC>2  in  the  atmosphere 

Dynamic  opening  shock  load  factor  on  the  drogue  chute 

Dynamic  opening  shock  load  factor  on  the  main  chute 

Mole  fraction  of  N2  in  the  atmosphere 

Mole  fraction  of  O2  in  the  atmosphere 

Distance  between  vehicle  nose  and  lander  nose,  feet 

Crushup  stroke  coordinate,  feet 

Altitude,  feet 

Curve  fit  constant  relating  crushing  stress  and  density 
Initial  body  angle  in  the  tension  shell  section^  degrees 
Flight  path  angle  (positive  in  climb),  degrees 
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Total  usable  strain 


B2q  Initial  body  angle  of  the  general  shape  section,  degrees 

03G  Final  body  angle  of  the  general  shape  section,  degrees 

Aft  cone  section  body  angle,  degrees 

6 B Flare  section  body  angle,  degrees 

6q  Cone  section  body  angle,  degrees 

6CO  Internal  lander  cone  angle,  degrees 

Angle  subtended  by  the  crushable  material  segment, 
degrees 

% Complement  of  nose  cap  angle,  degrees 

3 

p Density,  slug/ft 

a Yield  strength  of  face  sheet,  psi 

xft  Curve  fit  constant  relating  crushing  stress  and  density 

Subscripts: 

1,2,3,  etc.  Designated  points  on  the  vehicle  surface 

c Crushup 

cl  Parachute  cluster 

c.g.  Center  of  gravity 

D Drogue  parachute  conditions 

£ Final  utilized  value 

fs  Face  sheet  (internal  structure) 

HS  Heat  shield 

H/s  Heat  shield  and  structure 
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Internal  lander  (payload  and  crushup) 


11  Initial  weight  just  prior  to  retrorocket  ignition 

imp  Impact  conditions 

m Maximum 

MC  Main  chute  conditions 

R Retrorocket  conditions 

SL  Sea  level  conditions 

ST  Stratosphere  conditions 

STR  External  structure 

susp  Suspended  weight  on  chute  system 

v Vehicle  profile 

vert  Vertical  component 

w Wind  component 

s Earth  conditions 

C.  ENGINEERING  EQUATIONS 

1.  Heat  Shield  and  Structural  Shell  System 

There  are  13  possible  body  sections  which  exist  for  the  overall  general 
shape.  The  x and  r coordinates  can  be  evolved  for  any  shape  via  equations 
which  are  provided.  These  coordinates  are  evolved  from  input  body  para- 
meters. 

For  the  tension  shell  option,  the  x and  r coordinate  equations  are  provided, 
and  for  the  general  shape  option  the  x and  r coordinates  are  specified  as 
inputs. 

With  the  body  coordinates  in  hand  for  the  desired  vehicle  shape,  the  area, 
centroid,  moments  of  inertia,  and  weight  of  each  section  are  then  calcula- 
ted. 

The  final  calculation  in  this  portion  of  the  program  is  to  establish  the  cen- 
ter of  gravity  of  the  heat  shield  and  structural  shell. 
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2.  Shape  Generation  Equations 


a.  SECTI0N  1.  Spherical  Nose  Cap 
Coordinates  Formula 


Independent  Variable  Limits 


SECTION  2.  Torus 


= X,  + Rew  (sin  * 


91  = % 


X1  = % C1  ~ sin  %) 


*2  x2  ~ X1  + %N  (sin  ~ s*n  92* 

*2  r = + RgN  (cos  6 — cos 

r2  z2  = *i  + R$N  (cos  &2  “ cos 

62  depends  on  which  option  is  utilized: 

section  3.  e2  = ec 

SECTION  4.  e2  *=  £ 

SECTION  5.  62  = 62G 


c.  SECTION  3. 


%2  + (r  — z-£t  cot  0Q 


r2  — f < r3 


d.  SECTION  4. 


z3  * x2  + ^r3  ~ r2^  cot 


^3  ~ *C  — Rsc  ^ “ cos  d^) 


1*0 


tii-  liu. 


r32  + (c22  ” r3  > 


/ 1 + cos  9 \ 1 
In  V sm  9 ) 


-.1/2 


(1) 


1 + cos  fi 
sin  j8 


(3  < Q < 90° 


x - x7  + 


cot  0 dr 


(2) 


r3  = Rc  - Rgc  (3) 

e.  SECTION  5. 

Table  of  x and  r coordinates  (maximum.  of  25  points) 

First  pair  of  coordinates  are  x2>  r2 
Last  pair  of  coordinates  are  Xy  r3 
Also  specify  $2G  and  0^G 


x2 

= + HSN  (s*n  “ s*n 

(4) 

r2 

= + R-SN  (Cos  ^2G  “ cos 

(5) 

x3 

= X2  + (tj  - r2)  cos  02q 

(6) 

r3 

~ Rc  ^sc  ^ ~ cos  %G^ 

(?) 

f.  SECTI0N  6. 

r3  '*  x4 

x = x3  + (sin  9^  — sin  9) 

(8) 

x4 

— x^  + Rg^~  sin  9^ 

03  < 0<o° 

(9) 

r3-r4 

t = + R^  (cos  0 — cos  9^) 

(10) 

r4 

a 

<r 

(U) 

#3 depends  on  which  option  section  (2-3)  utilizes , i.  e; 


SECTION  3. 

S3  - 

SECTION  4. 

«3  " 

90° 

SECTION  5. 

*3  = 

e3G 
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g.  SECTI0N  7. 


h.  SECTION  8. 
x5  x6 
x6 

r6 


X = X 

x5  ~ x4*  Lc 
r = Rc 

r5  = RC 

x = x^  + (r  - Rc)  cot  0g 

x6  = x5  + (r6  “ Rc)cot 

r = r 

r6  = RB  “ RSB  (*  ~ cos  dB^ 


i.  SECTION  9. 

X6->Xy 

x7 

r6  r7 


r7 


j.  SECTION  10. 


x = x6  + Rgg  (sin  0g  — sin  ff) 

x7  = x6  + RSB  sin  °B 
r = rg  + Rgg  (cos  6 — cos  0g) 

r7  = RB 


x7  ■*  x8 

x9 

r7  ■*  r8 

r8 

K SECTI0N  11. 

x8  ■*  x9 


x — Xy  — Rgg  sin  ^ 
x8  “ x7  “ ^B  sin  QA 
r = ^B  ®SB  (^  “ cos 
r8  = RB  ~ RSB  ~ cos 

x = xg  + (r  — rg)  cot  dA 
Xp  = xg  + (r^  - rg)  cot  &A 


x4  Sx  <(*4  + LC> 


r5  — r ~ r6 


eB  <e<o° 


o°  <e<eA 


r9  — r ~r8 


(12) 

(13) 

(14) 

(15) 

(16) 

(17) 

(18) 

(19) 

(20) 
(21) 
(22) 

(23) 

(24) 

(25) 

(26) 

(27) 

(28) 
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‘9 


(29) 


r8  r9 


(30) 


r9 

r9  = RA  cot  $A 

(31) 

SECTION  12. 

x9  - xio 

x = x9  + R^  (sin  - sin  0)  (?A  < 0 < - 90° 

(32) 

x10 

x10  =x9  +RA  (sin^A  + 

(33) 

r9  **  r10 

r - R^  cos  0 

(34) 

r10 

r10  “ 0 

(35) 

SECTION  13. 

x9  ->  xlQ 

X =S  X9  0 < r < R'J' 

(36) 

x10 

II 

O 

X 

(37) 

r9  r10 

f 

Jt 

II 

(38) 

r10  rXO  = 0 (39) 

3.  Shape  and  Body  Parameter  Logic 

a.  The  nose  cap,  SECTION  1.  cannot  be  omitted. 

b.  If  the  RsN^orus,  SECTION  2.  is  omitted,  then: 

$2  = % 
x2  - xx 

r2  = rl 

c.  When  SECTIONS  3.,  4.,  5.,  and  SECTION  6.  are  omitted, 

x2  * x4 
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d.  If  the  cylinder,  SECTION  7.  is  omitted,  then: 


e.  SECTION  8.  and  SECTION  9.  can  be  omitted 
together  only  in  which  event: 


x7  = x6  = *5 
r7  = r6  ~ r5  . 

f-  If  SECTI0N  10.  is  omitted: 


x8  = x7 
r8  ~ r7  . 

g.  If  SECTI0N  11.  is  omitted,  then: 


x8  " x9 
r8  ~ r9  * 

h.  Either  the  aft  sphere,  SECTION  12.  or  the  base,  SECTION  13. 
has  to  be  specified.  Both  can  not  be  simultaneously  present  or  deleted. 

Listed  below  are  the  equations  for  the  surface  area,  centroid,  and  moments 
of  inertia  of  each  section.  The  centroid  and  moments  of  inertia  are  mea- 
sured about  the  nose  of  the  vehicle. 


a.  SECTION  1. 

1)  Area 

A = 2n-RN2  (1  — » 

2)  Centroid 

X - * — — [2  (1  — sin  ^j)  — cos2  ] 

3)  Roll  moment  of  inertia 

2*-w01  Rn4 

he  = [2  - sin  ^(cos2  % + 2)] 

* &© 
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(40) 


(41) 


(42) 
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4)  Pitch  moment  of  inertia 


2n  wQ1  Rfl 

3g^ 


[1-3  sin  % + 3 sin2  0^  — 


sin-’  j 


(43) 


where  w01  is  the  sum  of  the  unit  heat  shield  and  structure  {the 
structure  includes  the  weight  factor  STRFAC) 


b.  SECTION  2. 


1)  Area 


rSN  cos 


57.3 

RSN  cos  % (^2  ~ 


(%  ~ ^ + RSN  (S1°  % “ sin 


57  3 


(44) 


2)  Centroid 

2iT  rSN 


X = 


57.3 


“ fy)  + B12  RSN  (sin  % “ sin  Qt) 


b 2 

kSN 


+ A^2  (cos  % ~ cos  ^7}  ~ — 2 — (S1“  — 


(45) 


3)  Roll  moment  of  inertia 


2i7  w12  Rsn 
g® 


All  (%  ” 


57.3 


+ 3 Aj2  rsN  (sin  % “ sin 


3 

+ — 
2 


A12  RSN2 


0N~  ^2 
57.3 


sin  2 0jq  — sin  2 &2 


rsn3 

3 


+ 2)  — sin  &2  (cos2  &2  + 2)| 
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4)  Pitch  moment  of  inertia 


2n  w12  I”  A12  B122 

7 “ RSN  — + 2A12  B12  RSN  (cos  dN  ~ cos  Qi> 

A12  RSN2  - ^ 2 sin  2%  - sin  20?  \ 

* 2 \ 573  2 7 + Bl22  RSN  (sin%  “ sin02) 


where. 


B12  RSN2  (sin2  % - sin2  e2> 


(sin3  6»n  _ 


+ 


~T 


A12  “ rl  “ RSN  cos  % 

B12  = X1  + RSN  sin  % 

and  6 2 depends  on  which  option  is  utilized: 
SECTION  3.  ‘ e2  = ec 

SECTION  4.  e2  = jS 

SECTION  54  02  = e2G 

c.  SECTI0N  3. 


1)  Area 

A = — - — 
sin  6q 

2)  Centroid 


(r32-r22) 


^23  — r2^)3 


(r33  - r23) 


(48) 


(49) 


3)  Roll  moment  of  inertia 


2gesm0c 


(fa  “ r24) 


(50) 


-53- 

2j.S< 


4)  Pitch  moment  of  inertia 


V 


IT  W2J 

g®  6c 


b 


2 (.  2 . 2>  . 

!3  (r3  -r2>  + - 


4 A. 


23 


cot2  6C 
2 


where. 


cot  6C  (r33  - r22) 


(51) 


A23  = x2“r2  cot6c 

d.  SECTION  4.  and  5. 

1)  Area 


2)  Centroid 

rxdx 
COS0 


(52) 


(53) 


3 ) Roll  moment  of  inertia 

I,  = JlZ?L  [ _£^_  (54) 

gffl  J cos  Q 

4)  Pitch  moment  of  inertia 


_ 2"  "23  f r dx  + (55) 

^ g®  J cos  0 2 

SECTION  5.  02G  < ^ < %G 
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SECTION  4, 


is  < e < 9o‘ 


e.  SECTION  6. 

1)  Area 

A ~ 2n  Rg£ 

2)  Centroid 

2 " ^sc 


r3e3 

57  3 


+ R( 


SC 


A34  B34  03 


0 3 cos  0 3 
~~57 3 


B34  RSC  sln  % 


KSC 

+ A Rg£  (cos  03  — 1)  — (sm2  0 3) 


3)  Roll  moment  of  inertia 
2n  w34  RsC 


V S3 

4- 

573 


3 -> 

+ — A?*  l + 

2 34  SC  \ 573  2 


4)  Pitch  moment  of  inertia 


%c3 


(56) 


(57) 


3 A^  RgQ  sin  0 3 

sm  02  (cos2  02 


+ 2)] 


2tt  w34  RsC 


A34B34 


573 


+ 2A34  B34  rSC  (cos  % “ 


A34  R$C  { % sin203 

2 \573  2 


RSC 

B34  Rgc^  sin^  ^3  + sin^ 


B34  *SC 


(59) 


where, 


A34  = r3  ~ RSC  cos  % 

B34  = x3  + Rgc  sm  03 
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and  #3  depends  on  which  option  section  2-3  utilizes: 

SECTION  3,  e5  = ec 

SECTION  4.  03  « 90° 

SECTION  5.  = 03G 

f.  SECTION  7. 

1) 

Area 

A = 2ff  RCLC 

(60) 

2) 

Centroid 

Lc 

X = x4  + — 

(61) 

3) 

Roll  moment  of  inertia 

2tt  w45  RC3 

!x  = (*5~x4> 

(62) 

4) 

Pitch  moment  of  inertia 

2w  w,_  Rr  , a *x 

V - if  c ^ — 

(63) 

g.  SECTION  8. 

1) 

Area 

A " 

(64) 

2) 

Centroid 

X = b6  ('&2  ~l2)+  3 ^ ~ r53)] 

(65) 

3) 

Roll  moment  of  inertia 

TT  W,-/; 

I = (r  A - tM 

2ge  sxn  % 6 5 

(66) 
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4)  Pitch  moment  of  inertia 


w56 

8©  s*n  % 


A, 


2 2 2 4A?6 
56  (r6  ~ r5  > + — cot  ' 


<'63-'53> 


-r56,  +- 


(67) 


where 


a56 


= x<-  — R,~  cot  t 


h.  SECTION  9. 

The  area,  centroid  and  inertia  equations  for  this  section  are  identical 
to  SECTION  6.  with  the  following  changes: 

is  replaced  by  x^ 

RgC  is  replaced  by  RgB 


6 ^ is  replaced  by  (for  all  options) 


rj  is  replaced  by 

i.  SECT10N1O. 

1)  Area 


A = 2jt  Rsb 
2)  Centroid 

2 it 


dA 

TTT 


rb  6 a 


57.3 


(68) 


X = 


rsb  rsb 

T~  I 2 


A78  B78  &A 
573 


“ b78  %B  sin  &A 


“ A78  ^B  (cos  6 A - !) 
3)  Roll  moment  of  inertia 

2/7  wyg  Rgg 


A783  eA 


(57.3) 


+ 3 A782  Rsb  sin  6A 


(69) 


(70) 


V A78  V 


/ 6A  sin  20a  \ RSB3  ? 

I + J + sin  0a  (cos2  6\  + 2) 

\57.3  2 / 3 


,-57- 
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4)  Pitch  moment  of  inertia 


A78B78  6A 


57„3 


2 A78  B78  RSB  <cos  6 A ~ 


A78  RSB2  / eA  Sln 


57.3  2 


+ B78  RSB  sin  0A 


Rgg3 

— Byg  Rgg2  (sin2  0A)  + sm3  61 


(71) 


where, 

a78  = rB  “ *SB 
B 


78  " x7 

SECTION  11. 

1)  Area 

4 _ 71  /_  2 . 2\ 

A - — : — -7T  (ro  “ r8  ' 

sin  0A  ■' 

2)  Centroid 


A sm  6 A 


2 cot  0A 

A89  ff92  “ r82)  + 7 (r/  ~ r83) 


3)  Roll  moment  of  inertia 

n WoQ 

Ix  = (rQ4  — rg4) 

x 2gesin0A  ^ 8 

4)  Pitch  Moment  of  inertia 


(72) 


(73) 


(74) 


89 


g0  sin  0A 


A89  (r9  " r8>  + 


ft89 


(r94  - r84) 


cot  0A  (r?3  - rg3) 


2 


(75) 
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where, 


A89  * x8  “ r8  coc  6 A 


k.  SECTI0N  12. 


1 ) Area 


A = 2tt  Ra  Csm  dA  + x) 


2 ) Centroid 


3 ) Roll  moment  of  inertia 


[ sin  dA  (cos2  dA  + 2)  + 2 ] 


4)  Pitch  moment  of  inertia 


271  w910RA2 


Apio  (sin  dA  + 1)  + Ap10  RA  (1  - sin2  0A) 


Ra2 

-y  (sin3  6A  + 1)  + - 


A910  = x9  + rA  sin  9 A 


1.  SECTION  13. 
1)  Area 


2)  Centroid 


221< 


3) 


Roll  moment  of  inertia 


rr  w91Q  Rrj* 
2ge 


4) 


Pitch  moment  of  inertia 


910 


*10 


rt2 


(82) 


(83) 


The  weight  of  each  section  of  the  vehicle  is  calculated  in  the  following 
manner* 

Example* 

SECTI0N  1. 

WHS  - "01HS  A P°und 

WSTR  « (W01SXR  A)  (STRFAC)  pound 


WRR 


(wHS  + wsTR) 


pound 


The  center  of  gravity  of  the  heat  shield  and  structural  shell  is 
calculated,  with  respect  to  the  nose  of  the  vehicle,  by  the  follow- 
ing expression: 


Xcgh/s 


W01  X01  + W12  x12  + w910  X910 

W01  + W12  + W910 


(84) 


4.  Descent  System 

The  descent  system  portion  of  this  program  consists  of  three  options, 
as  shown  m Figure  3;  namely: 

a.  Option  One  — Two  Chute  System 

1)  Drogue  chute 

Chute  diameter  > specified  minimum  diameter 
Main  chute 
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a)  Single  chute  diameter  > specified  minimum  diameter 

b)  Cluster  of  n chutes  if  the  diameter  of  a single  chute  > 
maximum  input  diameter. 

b.  Option  Two  --  Single  Chute  System 

1)  Main  chute 

a)  Single  chute  diameter  > specified  minimum  diameter 

b)  Cluster  of  n chutes  if  the  diameter  of  a single  chute  > 
maximum  input  diameter. 

c.  Option  Three  --  Drogue  Chute  - Retrorocket  System 

1)  Drogue  chute 

Specified  chute  diameter 

2)  Retrorocket 

Sized  on  required  Av 
5.  Atmosphere  Equations 

To  solve  the  equations  of  motion  utilized  in  each  of  the  descent  system 
options,  a model  atmosphere  relating  the  atmospheric  density  and  speed 
of  sound  as  a function  of  altitude  must  be  generated.  The  model  atmos- 
phere will  consist  of  a troposphere  and  stratosphere.  Equations  are  not 
generated  for  the  thermosphere  since  it  is  assumed  that  chute  deployment 
conditions  will  always  be  well  below  the  thermosphere  region.  The  inputs 
required  to  establish  the  atmosphere  are  sea-level  temperature,  strat- 
osphere temperature,  the  temperature  gradient  in  the  troposphere  expressed 
as  a fraction  of  adiabatic  lapse  rate,  the  acceleration  of  gravity  at  sea  le- 
vel, the  mole  fraction  of  the  concentrations  of  oxygen,  nitrogen,  carbon 
dioxide,  and  argon  in  the  atmosphere,  and  the  sea- level  density.  Nine 
quantities  are  used  to  specify  the  atmosphere.  The  atmosphere  is  assumed 
to  be  in  hydrostatic  equilibrium. 

a.  Troposphere 


M = 28  XN  + 32  XQ  + 44  Xc  * 40  XA 
R - 89,516 

Cp  = (3.5  XN  + 3 5 X0  + 4.0  Xc  + 2.5  XA) 
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(86) 
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6.  Equations  of  Motion 

For  purposes  of  short-range  parachute  trajectories,  the  two- degree- of  - 
freedom equations  of  motion  are  utilized  neglecting  the  centripetal  accelera- 
tion and  lift  component  of  the  vehicle.  The  equations  are  as  follows: 
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mV  = — D — mg^  sin  y 
vy  ~ - SSL  cos  y 
Z = + V sin  y 

a.  Two  Chute  System  - Option  1 

1)  Drogue  chute 

It  is  desired  to  deploy  a drogue  chute  at  some  specified  Mach 
number  (M-j-j)  and  altitude  (Zq)  so  as  to  have  the  vehicle  decelerate 
to  a specified  set  of  main  chute  deployment  conditions  of  Mach 
number  (M-^q)  and  altitude  (Zj^c).  The  intent  is  to  determine  the 
drogue  chute  canopy  area  which  will  satisfy  these  end  conditions 
(see  Figure  3b). 

To  start  the  drogue  chute  trajectory,  a minimum  specified 
diameter  chute  is  used  in  the  drag  component: 

D = y (CjjA)^  p( Z)  V2(Z)  (98) 


(95) 

(96) 

(97) 


where, 


(C°A  eff  = tCDA)v  + <cDA>d 


m 


and, 


Ay  = It  Rq 


(99) 

(100) 


(101) 


If  the  minimum  specified  drogue  chute  diameter  satisfies  the 
main  chute  deployment  conditions  such  that  the  main  chute  deploy- 
ment Mach  number  (Mj^q)  is  reached  at  a higher  altitude  than  the 
specified  deployment  altitude  (Zj^q),  then  the  drogue  is  allowed  to 
decelerate  to  the  specified  deployment  altitude  (Zj^q)  and  some 
new  somewhat  lower  Mach  number.  In  this  case  the  design  drogue 
chute  diameter  is  the  minimum  specified  value  and  the  main- chute 
descent  commences  at  the  specified  deployment  altitude  (Zj^q) 
with  the  newly  established  Mach  number. 
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If  the  minimum  specified  drogue  chute  diameter  does  not  sat- 
isfy the  deployment  conditions  of  the  main  chute,  then  increasing 
drogue  chute  areas  (Aj->)  are  used  until  the  end  conditions  are  sat- 
isfied within  ± 500  feet  of  the  specified  main  chute  deployment 
altitude  (ZMC). 

a)  Drogue  Diameter 


dD 


(102) 


b)  Drogue  Weight 


~ dD 

TCurve  fit  from] 

_18 .6 

65  J D 

[^Reference  3 -1 

c)  Opening  Drogue  Shock  Load 

PD  = XD  „ (CDA)D  [Reference  z]  (103) 

where, 

qD  - 1/2  pD  VD2  (104) 

2)  Main  chute 


The  main  chute  canopy  area  is  sized  such  that  the  suspended  pack- 
age decelerates  to  a specified  vertical  descent  velocity  (see  Fig- 
ure 3bt).  Terminal  descent  velocity  is  assumed  such  that 
2 &SL  msusp 

AMC  = 2 . (105) 

PSL  CDmc  Vvert 

The  calculated  main  chute  canopy  diameter  must  be  ^ a min- 
imum specified  diameter.  If  the  calculated  diameter  is  less  than 
the  minimum  specified  value,  then  the  specified  diameter  is  uti- 
lized. In  the  above  equation  mSUSp  is  dependent  upon  when  the  heat 
shield  and  structure  is  jettisoned  from  the  vehicle.  There  are  two 
options;  namely  ^ 


a)  Jettison  at  main  chute  deployment 


(106) 
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(107) 


b)  Jettison  just  prior  to  impact 

we-wD 

msusp  “ “ 

Mam  Chute  Diameter 


dMC 


b.  Main  Chute  Cluster  Option 


(108) 


If  the  diameter  of  the  mam  chute  exceeds  the  maximum  specified  dia- 
meter, then  a cluster  of  n chutes  are  employed  so  as  to  reduce  the  size 
of  each  chute  to  less  than  the  maximum  allowable  value.  The  area  of 
each  chute  m the  cluster  is  defined  as: 


2 gSL  msusP 
npSL  CDcl  Vvert 


(109) 


where  n is  the  number  of  chutes  in  the  cluster  and  the  drag  co- 

efficient of  each  chute  in  the  cluster. 


CD  , = cd  „ (°*95  - 0.03  n) 
Ucl  dMC 


Reference  2 


(110) 


The  diameter  of  each  chute  in  the  cluster  is 

r^uc 

dci  ■ (Hi) 

hence  n should  be  increased  until  this  diameter  < the  maximum  speci- 
fied diameter. 

The  number  of  chutes  n is  increased  in  odd  increments,  i.  e,,  n equal 
to  3,  5,  7,  . . . 15. 

The  weight  of  the  clustered  main  chute  system  is: 

°*013  9MC  AMC 

V = — (0.98  + 0.045  n)  n (112) 

M'-cl  10 
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c.  Main  Chute  Descent  Trajectory 


"With  the  area  of  the  main  chute  canopy  established  via  either  a 
single  chute  or  cluster,  the  actual  mam  chute  descent  trajectory  can 
be  determined  from  the  equations  of  motion.  In  general,  because  of 
the  large  size  of  the  main  chute,  the  filling  time  and/or  loss  in  altitude 
has  to  be  accounted  for  before  the  trajectory  commences. 

The  main  chute  filling  time  is  expressed  as: 

t£  = dMC  (0.05  - 3.0  x 10-5  vMC)  ^Reference  2J  (113) 


Assuming  no  change  in  velocity  during  inflation,  the  loss  in  alti- 
tude is: 


Azf  = VMC  cf  ; 

hence  the  main  chute  trajectory  commences  at  y^,  vmc*  (ZMC  “ 

AZp  . The  mass(m)  used  in  the  equations  of  motion  is  msusp  and  is  de- 
pendent upon  when  the  heat  shield  and  structure  are  jettisoned. 


1 ) Jettison  at  Main  Chute  Deployment 

WRR  - WD 

^ " ge 

(CDA)eff  = (CDA)mc_ 

2)  Jettison  Just  Prior  to  Impact 

we-wD 

msusp  = 


(114) 

(115) 


(116) 


(CDA)eff  = (CDA>v  + (CdA)mc  . 

Note  that  if  the  cluster  option  is  utilized, 

(n)^. 


(117) 


then  Cn 

dMC 


is  replaced  by 


3)  Single  Main  Chute  Weight 


WMC 


°.°13  qMC  AmC 


10 


(118) 


4)  Opening  Mam  Chute  Shock  Load  (Single  or  Cluster) 

PMC  “ XMC  qMC  (CDA)mc 
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(119) 


where, 


2 

%1C  * y PMC  VMC  (120) 

5)  Landed  Impact  Weight  (Crushup,  Payload  and  Internal  Structure) 
wl  - — wMC  - Straps  (121> 

where, 

WSTRAPS  = °*05  (WD  + WMC>  * 

d.  Single  Chute  System-Option  2 

It  is  desired  to  deploy  s main  chute  at  a specified  Mach  number 
(MMC)  and  altitud®  (ZMC)  so  as  to  decelerate  the  package  to  a speci- 
fied impact  velocity  at  zero  altitude.  This  option  is  identical  to  the 
mam  chute  portion  of  Option  1,  including  clusters. 

e.  Drogue  Retrorocket  System- Option  3 

Option  3 consists  of  a specified  drogue  chute  diameter  and  a retro- 
rocket,  The  intent  is  to  deploy  the  drogue  chute  at  specified  deploy- 
ment Mach  number  (MD)  and  altitude  {Zp>)  conditions.  The  drogue  is 
allowed  to  decelerate  down  to  impact  and  the  drogue  chute  impact  ve- 
locity (Vj})  is  obtained  via  the  equations  of  motion  and/or  descent  tra- 
jectory. The  retrorocket  is  then  sized  on  the  AV  which  exists  between 
the  resultant  of  the  drogue  impact  velocity  (V-q)  and  horizontal  wind 
velocity  (V-yy),  and  the  required  specified  impact  velocity  (VImp)  . 

1)  Resultant  Velocity  at  Retro  Ignition 


2 . v 2 
+ Vw 


(122) 


2)  Required  Rocket  AV 


AV  = VR  - V, 


(123) 


imp 


3)  Retrorocket  Weight  (Structure  and  Fuel) 

W;,  - 

WR  = 


wii  w final 


MR 


(124) 
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where  f 


4)  Initial  Weight  Prior  to  Retro  Ignition 


WE  “ WD  " WHS  ” WSTR  ~ WSTRAPS 


5)  Drogue  Chute  Weight 


6)  Strap  Weight 


7)  Rocket  Volume 


UJLp  n 

R PR 

8} . Rocket  Diameter 


/%  dR  V' 

V^r1*/ 


9)  Landed  Impact  Weight  (Crushup,  Payload,  and  Internal  Structure) 


WL  = wn  “ WR 


10)  Opening  Drogue  Shock  Load 


PD  = XD  (CD  A)D 


"y  pD  VD 


Since  the  retrorocket  system  has  some  inherent  AV  error,  it  should 
be  accounted  for  so  as  to  ascertain  a correct  resultant  impact  velocity 
which  is  required  in  the  impact  attenuation  system. 


11)  Final  Resultant  Impact  Velocity 


7.  Impact  Attenuation  System 

This  portion  of  the  program  is  the  impact  dynamics  of  the  lander  package 
using  crushable  material.  The  intent  is  to  determine  the  weight  and  geo- 
metric dimensions  of  the  crushable  material  and  residual  payload. 

The  equations  presented  herein  are  based  on  an  analysis  which  accounts  for 
the  variation  of  mass  during  the  crushup  stroke  and  for  materials  with  an- 
isotropic properties.  The  equations  have  been  derived  for  the  particular 
case  where  the  crushable  material  is  m the  shape  of  a spherical  segment. 

There  are  two  options  for  the  type  lander  configuration  and  three  special 
cases  therein* 


a.  Option  One  - Lenticular  Shape 

1)  Lenticular  {see  Figure  4d). 

2)  Sphere  --  The  sphere  is  a special  case  of  the  lenticular  with 

0M  set  equal  to  90  degrees  (see  Figure  4e).  

b.  Option  Two  - Spherical  Segment  Cone-Cylinder  Shape 

1)  C one  - Cylinde  r — A spherical  segment  of  crushup  ( % < 90  de- 
grees) with  a cone  and  cylinder  payload  package  (see  Figure  4a), 

2)  Cylinder  A special  case  of  the  cone-cylinder  with  the 
exception  that  the  cone  portion  of  the  payload  is  deleted  (see 
Figure  4b), 

3)  Cone  --A  special  case  of  the  cone-cylmder  with  the  exception 
that  the  cylinder  portion  is  deleted  (see  Figure  4c), 


a.  Lenticular  - Option  One 

This  option  is  capable  of  handling  either  a lenticular  or  spherical  shape 
lander.  The  sphere  portion  of  the  option  is  utilized  by  setting  0^  equal 
to  90  degrees  whereas  the  lenticular  utilizes  a 0^  of  anything  between 
0 and  90  degrees  (see  Figures  4d  and  4e). 
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6)  Velocity  Expression 


The  constants  aQ  , &1  » i2  * a3  * an^  N are  emPirically  determined 
and  are  used  to  describe  the  materials  anistropy,  i.  e.  the  vari- 
ation of  crushing  stress  with  the  direction  of  loading  (see  Reference 
1). 

S(0)  = aQcosN0  + a2  + a2  0 + aj  02 
7)  Acceleration  Expression 
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b.  Cone- Cylinder- Option  Two 


This  option  is  capable  of  utilizing  a cone-cylinder,  a cone,  and  a 
cylinder  as  the  lander  payload  geometry  (see  Figures  4a,  b,  c).  The  special 
case  of  the  cylinder  is  made  possible  by  setting  Lco/rco  equal  to  zero, 
whereas  the  special  case  of  the  cone  is  evolved  by  setting  Lcyl/Rco  equal 
to  zero. 


1)  Geometry  Expression 


(m 


'P./U  , , 2,  ^ ( RC0  RCoV/2ECO  ^VtfpR3 

'1  + mc)  3 ( Kco / C°  1*K}+K}  3 Un«M  t m6u)  (»n0M  + tan ‘ C°\  RCCi 


pc  (1  - CO  s 0 


11/3 


R3 

Rco 

sin30w 


(142) 


wherej 


K 


3 


LC0 

Rco  tan  ^CO 


2)  Internal  Payload  Mass 


rrp1  Lco  npl 

m1  = - (RC0  + RC0  R + r2^  + “ f Ri 


tan  dy 


where, 


+ 7tPiRCOhcyl 
(143) 


R = RC0  k3 

and. 
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3)  Crushup  Mass 


(1  - cos  6U)  (R23  - Rj3) 


(144) 


Note  that  the  velocity  and  acceleration  equations  are  identical 
as  those  utilized  m the  lenticular  option. 


8. 


4)  Cylinder  Length 


5)  Cone  Length 


Engineering  Logic 


(145) 


(146) 


In  order  to  satisfy  the  geometry  constraints  of  the  lander,  the  impact  velo- 
city, and  impact  g simultaneously,  iteration  is  required  between  specified 
values  of  the  crushup  density,  i.  e.  pc  mm  and  pc  max  . Both  the  lenticular 
option  and  the  cone-cylinder  option  are  started  by  using  pc  max  and  then 
satisfying  the  geometry  and  velocity  expressions.  With  these  two  expres- 
sions satisfied,  the  acceleration  equation  is  checked  to  see  that  g , < 

specified*  H tllis  requirement  is  not  satisfied,  then  p is  decreased  by 
increments  towards  pc  min  until  G k <GS  pecified.  Hat  p , Gpeafc  is 
still  greater  than  Gspecified  , then  these  are*the  values  used,  *1  e.  , pCmin 
and  the  associated  g and  geometry.  The  method  of  solution  is  depicted  by 
a flow  diagram  in  Figure  8. 


9.  Lander  Packaging  Design 

The  intent  in  this  portion  of  the  program  is  to  package  the  lander  (payload 
and  crushup)  and  descent  system  within  the  vehicle  such  that  it  both  fits 
within  the  inboard  profile  of  the  vehicle  and  also  satisfies  a minimum  cen- 
ter of  gravity  constraint.  To  include  the  thickness  of  the  heat  shield  and 
structure  in  the  packaging  design  it  is  necessary  to  redefine  the  lander  outer 
radius  as* 


R2  = R2  + CH/S  (147) 

where  is  the  thickness  in  feet. 

The  design  is  started  by  placing  the  lander  at  the  nose  of  the  vehicle,  l.  e. 

Ax  = 0;  if  the  constraints  are  not  met,  then  the  lander  is  moved  aft  a given 
Ax  until  design  is  made  possible.  The  geometry  constraints  are  cited  below 
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(DOUBLE  ITERATION  ON  tc  AND  Pc) 


65-11695 

Figure  8 METHOD  OF  SOLUTION  OF  IMPACT  ATTENUATOR  DESIGN 
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Lenticular  Option 


2R2(1-cos0m)  < - AX 


R2  sin  ^ RC 
b.  Cone-Cylinder  Option 


tan0M 


Lcyl 


R2  sin  < Rc 


If  the  above  geometry  constraints  are  not  satisfied,  then  return  to  the  im- 
pact attenuation  system  and  increase  pc  to  p Qnax  and  find  new,  smaller 
lander  dimensions.  With  these  new  dimensions,  check  the  geometry  con- 
straints again. 


If  p cmax  were  already  utilized  m the  impact  attenuation  system,  then  stop 
the  problem  realizing  that  packaging  is  impossible  for  the  given  design 
constraints. 


Once  the  overall  geometry  constraints  are  satisfied,  one  can  proceed  to 
check  the  x and  r coordinates  of  the  lander (xp  and  rp  ) against  the  inboard 
profile  coordinates  xy  and  rv  (see  Figure  5).  An  overall  logic  diagram  is 
shown  in  Figure  9,  depicting  the  manner  m which  the  packaging  is  done. 

a.  Lenticular  (Sphere)  Option 

(148) 

xp  „ R2  (1  - COS  0)  + Ax  , rp  = R2  sin  6 0 < 0 < 6U 

Xp  = R2  (1  -2  cos  0^  + cos  0)  + AX  , rp  = R2  sin  0 0^  < 0<  0 049) 

b.  Cone- Cylinder  Option 

xp  *=  R2  ( 1 — cos  0)  + AX  rp  = R2  sind  0<d<$u(15 0) 

xp  = r'  (1  - cos  0M)  + tcos  0M  + AX  + L rp  * RCO  °5L^Lcyl  051) 

L 052) 

xp  s R2  ( 1 ” cos  + c cos  eU  + Lcyl  + AX  + L , r = Rco  - 

F 7 r KCO  - R 

0 <L  <LC0 
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(START) 


Figure  9 PACKAGING  LOGIC  DIAGRAM 


Vehicle  Coordinate  Logic  --  Solve  for  xp  from  the  given  equations 
and  then  determine  which  body  section  xp  occurs.  With  this  es- 
tablished, go  to  that  section  and  f ind  rv  noting  that  rp  must  be  e- 
qual  to  or  smaller  than  rv  . 


1)  SECTI0N  1.0 

rv  = % cos  ^ 
where, 


(153) 


6 — arc  sin 


2)  SECTION  2. 

(154) 

rv  = + Rsn  (cos  6 - cos  %) 

where, 


3)  SECTION  3. 


- Xp  * 12  COt  6°  ~ *2  (155) 

v cot  $c 

4)  SECTION  4.  and  5. 

Linear  extrapolation  is  used  for  both  of  these  options. 

5)  SECTION  6. 

(156) 

ry  = + Rg£  ( cos  $ — cos  & j) 

where, 

e 
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x^  + RgQ  sin  6 : 


239 


and, 


a)  SECTION  3. 

% = «C 

rj  = RC  - ®SC  ( 1 " cos  #C> 

= X2  + Cr3  — r2  ^ cot  0C 

b)  SECTION  4. 

(?3  = 90  degrees 

r3  = Rc  - %c 

X3  is  the  last  point  in  this  section. 

c)  SECTION  5. 

03  = <?3G 

r3  and  x3  are  the  last  values  of  the  input  tables. 

6)  SECTION  7. 

ry  = for  all  xp*s  in  this  section. 

7)  SECTI0N  8. 

Xp  + rc  cot  eB^x5 

v cot  (9g 

8}  SECTION  9. 

rv  “ r6  + RSB  ( cos  ^ “ cos  ) 


(157) 


(158) 


where. 


x6  + RSB  sin  % “ xp 
rSB 


9}  SECTION  10. 

ry  = Rg  — Rg-g  (1  — cos  8) 
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(159) 


where. 


ro) 


(160) 


11)  SECTION  12. 


(161) 


where, 

x9  + Ra  sm  6A  - xp 

8 = arc  sin  

RA 

12)  SECTION  13. 

rv  = 0 (162) 

If  for  a limiting  value  of  AX,  the  lander  still  cannot  fit  within  the  in- 
board profile  of  the  vehicle,  then  the  design  must  return  to  the  impact 
attenuation  system  and  increase  pc  to  pc  so  as  to  assure  a smaller 
dimensional  lander  which  may  or  may  not  fit  into  the  vehicle. 

If  the  lander  is  finally  positioned  within  the  vehicle,  the  overall  center 
of  gravity  position  must  be  found  such  as  to  check  the  requirement  that 


c*  S*  overall  < C*  specified 
Overall  Vehicle  Center  of  Gravity 

a.  Lenticular  (sphere)  Option 


[105  (vD  + wMC) 
^CG„  ” 


Wt]  [AXf  + r2  (1 
* 


+ WH/S  XCGh/s 


(163) 
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b.  Cone  Cylinder  Option 


%/s  xcGh/s  + % (Axf+“7')  * w<=  c4xf  * + w,  («,  + t + xCGl)  + 1 03  <%+%c>  (Axf  + tcos  % + ~) 

, We 

where. 


%GC 


(164) 


where, 


I Lcyl\ 

1 ^CAP  + Wcyl  I*1  + 2 J + Wcone  (h  + Lcyl  + Xcone> 


ffh2  pt 


WCAP 


<WCAP  + Wcyl  + *cone> 
(3R1-h)g0 


*cyl  " 77  Pi  RCO  Lcyl  8, 
17  Pi  LCO 


(RC02  + RCO  R + r2^  8© 


CAP 

,2 


7T  h‘ 


VCAP  38  “T — (3Rl  - h> 


3 tan  0CO 


h = R1  (1  - COS  0M) 
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If  xcgoverall  > xcg  £•  ft’  tlien  tiie  design  returns  to  the  impact 

attenuation  system  and  increases  pc  to  Pcma3{  • If  Pcma  was  already 
utilized,  then  packaging  is  impossible  for  the  given  design  constraints. 

If  the  center  of  gravity  constraint  is  satisfied,  i.  e.  XrG  < X<~G 

0 spe  cified, 

then  the  moments  of  inertia  of  the  entire  vehicle  about  the  overall  cen- 
ter of  gravity  can  be  established. 

Total  Moments  of  Intertia 

1)  Lenticular  (sphere)  option 


xtot/xCg 


'2X/S  + T 17©  + TT  '***  "Ri5)  &-<=“*«  + 


U , , , h3\  1.05  (WD  + W MC) 

+ ttPi  R:2  h3  - R:  h4  + + — [(R2  + tcc)  - R2  3 


(165) 


•where, 
0 80  (WD  + WMC) 


IyTOT/XCGo  y ^ ^H/S  + g0  [(XCG0  XcGH/S)  XcGH/S] 


% /L R2  »r\  % 


Be  \ !2  16 


— — v^CGn  “ AXf 


(166) 


+ PCf  R22  (R23-Ri3)  (1-cos0m)~  n R2  PC(  (R24  -Ri4)  sin2  0M 
+ Pc^  (R25  -Rj5)  (1  - cos*  dM)  + — — pCf  (R25  - Rl5)  [2  - cos  0M  (sin2  + 2)] 

- 2Pcf  Vs  Xs2  + 2 pCf  Vs  [R2  (1  - cos  #M)  -is]2 
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wc  + wt  + 1.05  (WD  + WMC) 


tXCG0  - AXf  - R2  (1  - cos  %>12 


+ nPl( RX  h4-  i^-)+  -r-(j  V h?  -R1  1,4  +-j)  ~2h 


CAP  aCAP 


+ 2?i  VCAP  (h  “ XCAP)  + 


1 05  (WD  + WMC) 


■22  <R2  + ccc)2 


wher  e _ 


zrr  2 2 

VS  = <l-cos0m)(R23  -Rl3) 


Xs  - 


R2  (R23  - Rj3) 


(1  - COS  0M)  - . 


(R24  -Ri4) 


lhl 


b.  Cone -cylinder  option 


xtot/xcg 


7T0T/XcGn 


s 

4 , 
XH/S 

17  Pi 

r 4 

2 

Li R] 

3 

lo  ' 

JT  L( 

i ~ 

X 

Ws 

% 1 

lr2 

g0  ( 

. 12 

7 Wp  /Dn\2  2irPcf  _ 9 

1 R (_JL)  + _L  (R25>Rl5)[2-cos^(sin2eM+2)] 


:H/S  2 g \ 2/ 


2 h3  _ Rl  h4  + M + 


(167) 


wcyl 


*CO 


W - R; 


2 2 / ftC05~R5\  105  <WD+WMC)  2 Z-. 

«CO  + RCOR  + R M— T— —1+  : [(R2+tcc/-R2^] 


RcJ  -r3 


'H/S 


[(xcg0-xcgh/s)2-^cgh/s2J 


(168) 


Xrr  - AXf 

CG0  f 2 


2jt  17  R2  pc 

+ -r  Pcf  r22  <r23  - Rl3)  <1- cos  eM)  - ^-1  (R24  - r/)  sin2  sM 

+ <>cf  (Rf  - Rl5)  Cl  - cos3  <y  + ^ pCf  (R^  - Rj5)  [2-cos^(sm2eM  +2) 
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PCf  VS  Xs2  + pCf  (1  - cos  0M)  (R23  - Ri3)  (XCG0  - Axf  - XS)2 


+ 7rp1 


R,  h4 


+ TPi 


3 1 1 5_ 


- AXf  - tc  - XCAp)2 


ffcyl 


Lcyl 


Pi  VCAP  XCAP 


KCO 


wcyl  ( , Lcyl 

\xrGo-AXf-tc-h-__ 


Lco2  ^ RC02  + 3RCO  R + 6r2 

Rco2  + RcoR  + r2 


“co 


20  ' Rco3  - r3 


cone  cone 

(XCQ0J2  + 


1.05  (WMC  + WD) 


(XcG0-AXf-t(:-h-Lcyi-XCone/ 

1.05(Wmc+Wd) 


(r2  + tcc)2 
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XCG0“A^'-R2(l~c°®^i)' 


10.  Internal  Structure 


The  internal  structure  consists  of  a cap  or  spherical  segment,  a cylinder, 
and  a cone  for  all  possible  lander  geometries.  The  cap  is  designed  for  a 
buckling  mode  of  failure  assuming  the  maximum  stress  to  be  that  applied  to  the 
crushup  during  impact.  The  cylinder  is  also  designed  for  a buckling  mode 
of  failure  and  assumes  the  internal  payload  in  the  cylinder  to  be  reacted 
at  one  end.  The  cone  is  designed  by  assuming  it  reacts  the  parachute  open- 
ing shock  load  in  tension. 

a.  Lenticular  (Sphere)  Option 
1)  Face  sheet  thickness 


% “ 


0 117 


(l-cos^,)1''7  Rj 


(169) 


tfs  must  be  > than  a minimum  gage  face  sheet  tf 

min 
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2) 


Area 


A = 4n  Rj  (1  — cos  ^j) 


(170) 


3)  Internal  structure  weight 
P(s  A 'fs 


(171) 


b.  Cone- Cylinder  Option 


1)  CAP 


acap  ■ 2ir  R1  (*  “ cos 


(172) 


0.117  . 

SCAP  \144  Efs 


3/7 


(l-cos^)1/?  Rjl 


(173) 


Pfs  ACAP  % 


WCAP 


(174) 


2)  Cylinder 


(175) 


7m  ^icyl  ^cyl 


cyl  \ 546  Rco  Ef, 


1/3 


(176) 


Wcyl 


scyl 


(177) 


where. 


icy!  ^ wi 


2 it  Rj2 3 


2 CO  9 9 

- — (1-cos^)  + jtRC0  Lcyl  + — - — (Rcq  +Rcor  +r  ) 
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3)  Cone 


AC0  = n (RC0  + R>  tLco2  + (RC0  - R)2  ] 1/2  + ^r2 

(178) 

PMC 

fsC0  2*RC0<’cy 

(179) 

ACO  Pis  tfsrn 

<N 

II 

o 

u 

s* 

(180) 

If  the  drogue-  retrorocket  option  is  used  in  the  descent  system  then 


cfs 


CO 


PD 

277  RCO  acy 


(181) 


The  total  internal  structural  weight  is  the  sum  of  the  components; 
namelys 


W ” WCAP  + Wcyl  + WC0 . 


(182) 
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XV.  IBM  PROGRAM  ROUTINES 


A.  PROGRAM  FLOW 
1.  Descent  System 

The  program  flow  for  the  descent  system  is  shown  in  Figure  10. 


3 DROGUE  AND  RETRO-ROCKET 


Figure  10  PROGRAM  FLOW  FOR  DESCENT  SYSTEM 
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2.  Impact  Attenuation  System 


The  program  flow  for  the  impact  attenuation  is  shown  m Figure  11. 


Figure  11  PROGRAM  FLOW  FOR  IMPACT  ATTENUATION  SYSTEM 
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3.  Lander  Packaging  Design 


The  program  flow  for  the  lander  packaging  system  is  shown  an  Figure  12. 


Figure  12  PROGRAM  FLOW  FOR  LANDER  PACKAGING  SYSTEM 
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B.  COMMON  STORAGE 


Name 

Quantity 

Source 

— 
Input  or 
Output 

Description 

AD 

ad 

Main 

Output 

Drogue  chute  area. 

AMC 

amc 

Main 

Output 

Main  chute  area. 

AS 

a 

ATM(&S 

Output 

Speed  of  sound. 

AV 

A 

v 

DERQZ 

Area  of  vehicle. 

CDD 

CDD 

Input 

Input 

Table. 

CDDD 

cdd  value 

ATM£)S 

Output 

Interpolated  value  at 
XMAC. 

CDM 

CDMC  value 

ATM0S 

Output 

Interpolated  value  at 
XMAC. 

CDMC 

CDMC 

Input 

Input 

Table. 

CDY 

CDV 

Input 

Input 

Table. 

CDVY 

CDV  value 

ATM0S 

Output 

Interpolated  value  at 
XMAC. 

DY 

D 

V 

Main 

Diameter  of  vehicle. 

FALR 

Li 

Input 

i 

Temperature  gradient 
in  troposphere  expressed 
as  a fraction  of  adiabatic 
lapse  rate. 

G 

°SL 

Input 

Gravitational  acceleration 
at  planet  surface* 

I JET 

JET 

Input 

Input  sentinal. 

IISYS 

DESSYS 

Input 

Input  sentinal. 

MACH 

M 

Input 

Table  of  Mach  numbers. 
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Name 

PI 

RH0 

RH0SL 


XZER0 


C.  SUBROUTINES 


Calling  Sequences  and  Definitions 


Variable 

AS 

CDD 

CDDD 

CDM 

ATMOS 

Input  or  Output 

Output  ' 

Input 

Output 

Output 

Source 

ATMQiS 

Main 

ATMOS 

ATMOS 

CDMC 

CDV 

CDVV 

FALR 

G 

RHO' 

Input 

Input 

Output 

Input 

Input 

Output 

Main 

Main 

ATM0S 

Main 

Main 

ATMOS 

RH0SL 

TSL 

TST 

V 

XA 

XC 

Input 

Input 

Input 

Input 

Input 

Input 

Main 

Main 

Main 

Main 

Main 

Main 

XMAC 

XN 

XZER0 

■ Z 

Output 

Input  : 

Input 

Input 

ATM0S 

Main 

i 

Main 

Main 

ADAMS4 

(See  the  writeup  of  ADAMS4  under  the  section  SPECIAL  SUBROUTINES.) 

ARSIMP 

(See  the  writeup  of  ARSIMP  in  the  section  SPECIAL  SUBROUTINES.  ) 


Variable 

AMVEL 

BEL 

CDD 

CDMC 

BLOCK2 

Input  or  Output 

Input 

Input 

Input 

Input 

Source 

Input 

Input 

Input 

Input 

CDV 

DD 

DELMIT 

DLVFAC 

DMCFAC 

DMCMIN 

Input 

Output 

Input 

Inp  ut 

Input 

Input 

Input 

BLOCK2 

Input 

Input 

Input 

Input 

DMIN 

DNBND 

DR 

DRVEL 

DV 

FACTOR 

Input 

Input 

Output 

Input 

Input 

Input 

Input 

Input 

BL0CK2 

Input 

Main 

Input 
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Variable 

FALR 

FREQ 

FREQ2 

FREQ3 

BL0CK2 

Input  or  Output 

Input 

Input 

Input 

Input 

(Continued) 

Source 

Input 

Input 

Input 

Input 

G 

GAMMAD 

GAMMC 

igMfx 

IJET 

IISYS 

Input 

Input 

Input 

Input 

Input 

Input 

Input 

Input 

Output 

Input 

Input 

PD 

PMC 

RH0R 

RHQSL 

TSL 

TST 

Output 

Output 

Input 

Input 

Input 

Input 

BLQSCK2 

BL0CK2 

Input 

Input 

Input 

Input 

TZERQ 

UPBND 

VIMP 

VFINAL 

VW 

W 

Input 

Input 

Input 

Output 

Input 

Input 

Input 

Input 

Input 

BL0CK2 

Input 

Main 

W D 

WE 

WL 

WMC 

WR 

WRQC 

Output 

Input 

Output 

Output 

Input 

Output 

BL0CK2 

Input 

BLQCK2 

BL0CK2 

Main 

BL0CK2 

WWHS 

WWSTR 

XA 

xc 

XD 

XISP 

Input 

Input  ! 

Input 

Input 

Input 

Input 

Main 

Mam 

Input 

Input 

Input 

Input 

XLRDR 

XL 

XMACH 

XMC 

XMD 

XMMC 

Input 

Input 

Input 

Input 

Input 

Input 

Input 

Input 

Input 

Input 

Input 

Input 

XMR 

XN 

XZER0 

ZD 

ZMC 

■ 

■ 

31 
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Variable 

ALPHA 

AO,  Al, 

BETA 

CTH1,  CTH2,  CTH3, 

BL0CK3 

Input  or  Output 

Input 

A2,  A3 
Input 

Input 

CTH6,  CTH9 
Input 

Source 

Input 

Mam 

Mam 

CTHM 

DIAM 

DR 

EF 

EPS1, 

ETA 

Output 

Input 

Input 

Input 

EPS3 

Input 

Input 

Main 

BL0CK2 

Input 

Input 

Input 

GS 

IBLK3 

IG00FX 

IISYS 

P 

PD 

Input 

Output 

Output 

Input 

Input 

Input 

Impact 

Input 

Mam 

BL0CK2 

PMC 

PS  I 

Q 

R3.R12, 

RA,  RB, 

RCHUTE 

Input 

Input 

Input 

R34,  R67 
Input 

RC 

Input 

Input 

BL0CK2 

Input 

Main 

Main 

Main 

Input 

RH0F 

RH0I 

RH0MN 

RH0MX 

R0 

SIGCYF 

Input 

Input 

Input 

Input 

Output 

Input 

Input 

Input 

Input 

Input 

BL0CK3 

Input 

STH1,STH2 

STHM 

SYSIMC 

TFMIN 

THC 

THETAM 

STH3,  STH6, 
STH9 

Output 

Input 

Input 

Input 

Input 

Input 

Mam 

Input 

Main 

Input 

Input 

THETC0 

THS 

TTC0 

Input 

Input 

Output 

Input 

Main 

VW 

WC 

WD 

WHST0T 

WI 

Input 

Output 

Input 

Input 

Output 

Main 

BL0CK3 

BL0CK2 

Main 

BL0CK3 

WMC 

WR0C 

WSTT0T 

X3 

XCGHS 

XCGMIN 

Input 

Input 

Input 

Input 

Input 

Input 

BL0CK2 

BL0CK2 

Mam 

Mam 

XIRDR 

XIT0T 

XLCRC 

XLCYRC 

XN 

YIR2 

Input 

Input 

Input 

Input 

Input 

Input 

Input 

Input 

Input 

YIT0T 

Input 
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BL3INT 

Variable 
Input  or  Output 
Source 

AO,  Al,  A2, 

A3 

Input 

Input 

DYR2 

Input 

Main 

ETA 

Input 

Input 

FUNC 

Output 

BL3INT 

GSTAR 

GUNC 

IISYS 

PI 

RH(?C 

RfDFX 

Input 

Output 

Input 

Input 

Input 

Input 

Main 

BL3INT 

Main 

Main 

Main 

Main 

SM 

SMIMC 

VFINAL 

VV 

VW 

WW4 

Input 

Input 

Output 

Input 

Input 

Output 

Main 

Mam 

BL3INT 

Main 

i 

Main 

BL3INT 

WW5 

XN 

YR2I 

1 

|| 

Output 

Input 

Output 

BL3INT 

Input 

BL3INT 

DERQZ 

Variable 
Input  or  Output 
Source 

DERN 

Output 

DERQZ 

K 

Input 

ADAMS4 

NPAR 

Input 

NZ 

Input 

PAR 

VALUE  , 

Input 

Input 

ADAMS4  ! 

1 1 

FINDRV 

Variable 
Input  or  Output 
Source 

BETA 

Input 

Main 

CTH1,CTH2, 
CTH3,  CTH6, 
CTH9 
Input 
Mam  % 

I 

Output 

FINDRV 

P 

Input 

Main 

Q 

Input 

Main 

R01,  R3,  R12 
R34,  R67 
Input 
Main 

RA,  RB, 
RC 
Input 
Main 

i 

RV 

Output 

FINDRV 

i 

STH1,  STH2, 
STH3,  STH6, 
STH9, 

Input 

Main 

THC 

Input 

Main 

X3 

XP 

I 

Input 

Input 

Main 

-94 

- 

Z5G< 


GENSHP 

Variable 
Input  or  Output 
Source 

AREAG 

Output 

GENSHP 

NX 

Output 

GENSHP 

PG 

Output 

GENSHP 

RGEN 

Input 

Input 

R&LLG 

THET2G 

THET3G 

WEB 

XCGG 

XGEN 

Output 

Input 

Input 

Input 

Output 

Input 

GENSHP 

Input 

Input 

Mam 

i 

GENSHP 

Input 

Variable 

DYR2 

ETA 

GSTAR 

PI 

PEAK 

Input  or  Output 

Input 

Input 

Input 

Input 

Source 

Main 

Input 

Main 

Main 

PGGAL 

PGGAL C 

R3BLK3 

RH0C 

SM 

SMIMC 

Output 

Output 

Input 

Input 

Input 

Input 

PEAK 

PEAK 

Main 

Main 

Main 

Main 

YR2 

YR2I 

YR2P 

Input 

Input 

Output 

Input 

Main 

PEAK 

R2B3 

Variable 
Input  or  Output 
Source 

CTHM 

Input 

Main 

ETA 

Input 

Input 

PI 

Input 

Mam 

R2BLK3 

Output 

R2B3 

RH0C 

RHQil 

SMIMC 

Input 

Input 

Input 

Main 

Input 

Main 
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R2B34 

Variable 
Input  or  Output 
Source 

AO,  Al,  A2 
A3, 

Input 

Input 

CTHM 

Input 

Main 

DRY2 

Output 

R3B34 

EPS3 

Input 

ETA 

GSTAR 

IISYS 

PI 

RC0 

RH0C 

Input 

Input 

Input 

Input 

Input 

Input 

Input 

Main 

Main 

Main 

Main 

Mam 

RH$I 

R0FX 

SM 

SMIMC 

STHM 

TTC0 

Input 

Output 

Input 

Input 

Input 

Input 

Input 

R2B34 

Main 

Main 

Main 

Mam 

VFINAL 

VV 

VW 

XLCRC 

XLCYRC 

XN 

Input 

Input 

Input 

Input 

Input 

Input 

Main 

Main 

Mam 

Input 

YR2I 

Output 

RP346? 

Variable 
Input  or  Output 
Source 

PIT3 

Output 

RP3467 

R0L3 

Output 

RP3467 

RR 

Input 

Mam 

RRR 

Input 

Mam 

THH 

W 

XX 

Input 

Input 

Input 

Mam 

Main 

Main 

Variable 

AREAT 

BETA 

CTH2 

PITT 

TENSHL 

Input  or  Output 

Output 

Input 

Input 

Output 

Source 

TENSHL 

Input 

Main 

TENSHL 

RC 

R3 

R34 

R0LLT 

RT2 

RTEN 

Input 

Output 

Input 

Output 

Input 

Output 

Input 

TENSHL 

Input 

TENSHL 

Main 

TENSHL 

STH2 

THE  T A3 

WLB 

XCGT 

XT2 

XTEN 

Input 

Input 

Input 

Output 

Input 

Output 

Main 

TENSHL 

Main 

TENSHL 

Mam 

TENSHL 
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1.  GENSHP 


a.  Purpose 

This  subroutine  computes  the  surface  area,  centroid  from  the  nose, 
and  moments  of  inertia  for  the  general  shape. 

b.  Method 

The  trapezoidal  rule  is  used,  with  as  many  as  25  input  values  for  the 
coordinates  XGEN  and  RGEN.  The  number  of  XGEN  and  RGEN  values 
are  counted. 

2. 

a.  Purpose 

This  subroutine  computes  the  surface  area,  centroid  from  the  nose  and 
moments  of  inertia  for  the  tension  shell. 

b.  Method 

A set  of  five  ordinate  values  between  R2  and  R3  are  computed  corres- 
ponding to  five  abscissas  and  the  trapezoidal  rule  is  utilized. 

3.  RP3467 


a.  Purpose 

This  subroutine  computes  the  moments  of  inertia  of  Sections  6 and  9. 

b.  Method 

The  given  equations  are  utilized  with  the  input  variables  for  Sections 
6 and  9. 

4.  BL0CK2 

a.  Purpose 

This  subroutine  performs  a trajectory  calculation  with  three  options,  a 
drogue  and  main  chute  or  cluster,  a main  chute  or  cluster,  or  a drogue 
chute  with  a retrorocket. 
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b.  Method 


First  the  program  checks  which  of  these  three  options  mentioned  above 
are  to  be  used,  and  presets  initial  conditions,  including  those  for  the  deri- 
vative equations.  In  the  drogue  chute  trajectory,  the  minimum  diameter 
is  used  first  and  the  Mach  number  is  repeatedly  checked  unitl  the  time  it 
becomes  < MACD  input.  If  the  corresponding  altitude  is  above  ZMC,  the 
program  continues  with  this  size  drogue  chute  and  prints  the  trajectory 
down  to  ZMC,  where  it  switches  to  the  mam  chute  logic  If  this  altitude 
is  below  ZMC,  an  equation  is  used  to  calculate  the  next  drogue  chute  area. 

If  the  altitude  is  zero,  AD  is  increased  by  1.  5 {Statement  250)  and  the  pro- 
gram begins  again  This  process  of  checking  the  Mach  number  MACMC 
against  the  altitude  ZMC  is  repeated.  When  again  the  altutide  is  tested 
and  it  is  not  within  100  feet  of  ZMC,  the  present  drogue  area  is  multiplied 
by  ZMC/S  at  Statement  249  Eventually  an  area  will  be  found  where 
MACMC  occurs  within  100  feet  of  ZMC.  Then  the  trajectory  is  recalculated, 
and  printed  out  at  intervals  specified  by  DRVEL,  the  change  in  velocity 
Output  values  for  the  drogue  trajectory  are  also  computed  and  printed  before 
starting  the  mam  chute  trajectory. 

For  the  main  chute  portion,  first  the  area  is  calculated.  Then,  if  the  dia- 
meter is  less  than  DMCMIN,  the  minimum  main  chute  size  is  used  If 
the  diameter  is  greater  than  DMCMAX,  a cluster  of  three  to  fifteen  chutes 
is  used.  (The  number  is  increased  from  three  to  fifteen  by  intervals  of 
two  until  a diameter  less  than  DMCMAX  is  found  (See  DO  L0OP  at  Statement 
351)).  Then  the  program  calculates  the  filling  time  for  the  main  chute  or 
cluster,  and  the  initial  conditions  for  the  main  chute  trajectory.  The  tra- 
jectory printout  proceeds  at  intervals  of  MCVEL  changes  in  velocity  until 
impact.  Then  final  output  quantities  describing  the  mam  chute  are  calcu- 
lated and  printed 

For  the  drogue-retrorocket  option,  a trajectory  is  computed  utilizing  a 
specified  drogue  chute  size  diameter  DDMIN.  The  program  prints  out  at 
intervals  of  DRVEL  in  velocity  from  ZD  {drogue  deployment  altitude)  to 
impact  The  impact  velocity  on  the  drogue  YD  is  then  taken  with  a speci- 
fied horizontal  wind  velocity  VW  and  the  resultant  velocity  VR  is  evolved. 

The  required  retrorocket  AV  is  the  difference  between  the  required  speci- 
fied impact  velocity  VIMP  and  the  resultant  velocity  VR.  With  the  AV 
established,  the  sizing  of  the  rocket  system  commences,  i.  e diameter, 
length,  and  weight. 


5.  DERQZ 


a.  Purpose 

This  subroutine  computes  the  values  of  the  derivatives  of  velocity,  flight 
path  angle,  and  altitude  for  the  trajectory. 

b.  Method 

Subroutine  ATM0S  is  called  to  obtain  values  from  which  the  drag  is 
calculated.  The  value  of  the  suspended  weight  Msusp  is  calculated  de- 
pending on  when  the  heat  shield  and  structure  is  to  be  jettisoned 

6.  ATM0S 

a.  Purpose 

This  subroutine  computes  the  density  RH0  and  speed  of  sound  AS  vari- 
ations with  altitude  Z. 

b.  Method 

Initially,  Z_  is  calculated  and  compared  with  the  altitude  Z in  the  calling 
sequence.  Then,  depending  on  whether  Z is  greater  or  less  than  Z^, 
one  or  two  sets  of  equations  are  used  to  compute  the  density  RH0 
and  the  speed  of  sound  AS, 

7.  BL0CK3 


a.  Purpose 

This  subroutine  determines  the  crushup  density  (p  ) required  to  absorb 
the  impact  energy. 

b.  Method 

First  the  program  determines  whether  to  use  the  lenticular  (sphere)  op- 
tion or  the  cone -cylinder  option.  For  the  lenticular  option,  the  program 
starts  with  pc  = pcmax  . Then  subroutine  R2B3  is  called  to  get  R23  . Next 

BK3INT  is  called,  then  ARSIMP,  If  the  y/R2  value  is  good  enough,  the 
program  calls  PEAK,  otherwise  it  uses  a Newton-Raphson  approximation 
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to  converge  on  y/ R2.  The  chosen  PGCALC  is  compared  with  the  input 
GIMP  until  PGCALC  is  less  than  GIMP.  If  it  is  not,  pc  is  reduced  by 

( Pcmax  ~ Pcmin)/^  and  tlie  loop  starting  at  Statement  822  continues.  If 
no  satisfactory  values  are  found  before  pcmm  » is  reachedi  the  pro- 
gram continues  with  the  values  it  has  at  that  time  to  calculate  output 
equations.  Then  it  goes  on  to  the  lander  packaging  design. 

If  the  cone -cylinder  option  is  used,  the  iteration  starts  with  pc  = pcmax  . 

Then  Subroutine  R2B34  is  called  with  a starting  value  of  Rco . Next  PEAK 

is  called  to  determine  if  PGCALC  is  less  than  GIMP.  If  it  is,  the  program 
computes  output  equations  and  goes  on  to  the  packaging  design.  If  PGCALC 

is  still  too  large,  pc  is  reduced  by  ( pcmax  - Pcmin)/10  and  the  iteration  con- 
tinues from  Statement  726.  If  pcmin  is  reached  without  a satisfactory  PGCALC 
the  program  continues  with  the  pcmin  value  and  calculates  the  output  equa- 
tions and  continues  on  to  the  packaging  design. 

Geometry  constraints  are  checked  at  901  or  902  depending  on  which  option 
was  used  in  the  impact  system,  the  lenticular  (sphere)  or  cone-cylinder , 

For  the  lenticular  (sphere)  option  an  array  of  0^  values  is  set  up  and  each 

x and  r is  calculated.  Subroutine  FINDRV  is  then  called  to  get  r . All  r 
p p v p 

values  must  be  less  than  the  corresponding  r values  If  not,  the  package 
must  be  moved  back  a distance  of  0 025  R^  along  the  vehicle  axis  until  a 

position  is  found  where  all  the  r^  values  are  acceptable  If  no  such  position 
can  be  found,  the  program  returns  to  the  impact  system  with  p equal  to 

^c  max 

If  all  the  geometry  constraints  are  satisfied,  then  the  overall  X is 

CGO 

calculated  and  tested  against  X__  . . If  is  less  than  X^^,  . , the 

& CGmin  CGO  CGmin’ 

program  continues;  otherwise  it  goes  back  to  the  impact  system  with  p 

equal  to  p . With  X^,_^  satisfied,  the  overall  moments  of  inertia 

cmax  CGO  * 

are  calculated  and  finally,  the  internal  structural  weight. 
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8.  R2B3 


a.  Purpose 

Subroutine  R2B3  calculates  the  value  of  R2  for  the  lenticular  and  sphere 
option. 

b.  Method 

The  program  evaluates  the  expressions  for  R2,  using  the  values  of 

n from  BL0CK3. 
c 

9.  BL3INT 


a.  Purpose 

Subroutine  BL.3INT  evaluates  the  integrand  of  Equation  (140)  in  prepara- 
tion for  integration  by  Simpson’s  Rule. 

b.  Method 

The  expressions  for  the  integrand  of  Equation  140  is  evaluated  at  11 

points  between  0 and  y /R  . 

m 2 

10.  PEAK 


a.  Purpose 

This  subroutine  determines  the  maximum  value  of  G during  impact. 

b.  Method 

Eleven  (11)  values  of  G corresponding  to  0 < y/R^,  — ^ /R^  are  com- 

puted and  the  maximum  of  these  values  is  chosen  as  PGCTALC,  the  out- 
put of  the  routine. 

11.  R2B34 


a.  Purpose 

This  subroutine  computes  the  value  of  R^  for  the  cone  cylinder  option. 
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b.  Method 


Subroutine  R2B34  computes  the  value  of  R for  the  cone -cylinder  option 
and  calls  it  R0FX.  Then  it  calls  Subroutine  BL3INT  to  evaluate  the 
expression  within  the  velocity  integral  using  this  R2.  Next  R^  is 

corrected  by  a Newton-Raphson  approximation.  This  process  is 
repeated  until  the  R2  value  gives  a solution  within  EPS3. 

12.  FINDRV 

a.  Purpose 

This  subroutine  determines  whether  the  payload  package  fits  within  the 
vehicle  envelope. 

b.  Method 


This  subroutine  compares  the  X computed  in  the  main  program  with 
the  abscissas-computedinthe  he£t  shield  and  structural  shell  system 
until  it  finds  the  section  in  which  X falls.  Then  it  calculates  the 
ordinate  r which  will  correspond  to  X from  the  equations  in  that 

v P 

section. 

JD . MAIN  PROGRAM 


The  program  first  sets  the  values  of  any  preset  input,  then  reads  the  data 
into  storage  as  specified  by  the  namelist  array  INPUT. 

After  converting  angle  to  radians  and  computing  their  sines  and  cosines, 
the  program  begins  at  Statement  20,  computes  five  (x)  and  (r)  values  for 
the  nose  cap  section  which  is  required  to  be  the  first  segment.  Area, 
moments  of  inertia,  and  centroid  from  the  nose  are  also  calculated  after 
the  (x)  and  (r)  values  are  written  on  the  output  tape. 

The  program  then  tests  to  see  if  the  toroidal  section  following  the  nose 
is  included.  If  it  is  not,  starting  at  Statement  31,  theta  2 is  set  equal  to 
theta  1,  and  x2  and  r2  are  set  equal  to  xl  and  rl  If  the  section  is  included, 
five  (x)  and  (r)  values  are  computed  and  written  on  the  output  tape.  Then 
the  moments  of  inertia  and  centroid  from  the  nose  are  computed. 


Next,  at  Statements  21  and  28,  the  program  determines  which,  if  any,  of  the 
three  options  {3.,  4 , and  5.  } for  Section  23  is  to  be  used.  If  none  are 
included,  theta  4 is  set  equal  to  theta  0,  and  r4  and  x4  are  set  equal  to  r2 
and  x2  Section  34,  a toroidal  section,  has  to  be  included  if  Section  23  is 
used. 

If  the  tension  shell  option  is  used,  five  (x)  and  (r)  points  are  computed  and 
written  on  the  output  tape  The  area,  moments  of  inertia,  and  centroid  from 
the  nose  are  also  calculated.  All  of  these  calculations  use  the  trapezoidal 
rule  and  subroutine  TENSHL.,  and  occur  between  Statements  34  and  44. 

For  the  general  shape  option,  as  many  as  25  points  may  be  used  to  describe 
the  curve.  The  program  proceeds  in  steps  similar  to  those  used  for  the 
tension  shell,  but  with  subroutine  GENERL,  between  Statements  44  and  42 

For  the  conic  section,  two  (x)  and  (r)  values  are  computed  and  written  out, 
followed  by  area,  moments  of  inertia,  and  centroid  from  the  nose  calcula- 
tions, between  Statements  42  and  52 

Then,  from  Statements  52  to  22,  Section  34,  is  handled  a toroidal  shape, 
with  five  (x)  and  (r)  values  which  are  written  on  the  output  tape.  Next  the 
area,  moments  of  inertia,  and  centroid  from  the  nose  are  calculated.  The 
moments  of  inertia  are  calculated  in  Subroutine  RP3467. 

Section  45,  if  included,  is  a cylinder  described  by  two  points.  If  it  is  not 
used,  x5  and  r5  are  set  equal  to  x4  and  r4  If  used,  the  two  (x)  and  (r) 
values  are  computed  and  written  out.  Then  the  area,  moments  of  inertia, 
and  centroid  from  the  nose  are  calculated,  (Statements  45  to  46). 

Section  56,  a flared  section,  is  described  by  two  points.  If  it  is  not  used, 
x6  and  x7  are  set  equal  to  x5,  and  r6  and  r7  are  set  equal  to  r5.  After 
the  two  (x)  and  (r)  values  are  written  on  the  output  tape,  the  area,  moments 
of  inertia,  and  centroid  from  the  nose  are  calculated.  If  section  56  is  used, 
section  67  a toroidal  segment  must  be  included  Five  (x)  and  (r)  values  are 
written  on  the  output  tape,  then  the  area  and  centroid  from  the  nose  are 
calculated  The  moments  of  inertia  are  computed  in  subroutine  RP3467. 
These  computations  occur  between  Statements  46  and  24 

If  section  78,  a toroidal  section,  is  not  included,  x8  is  set  equal  to  x7  and 
r8  is  set  equal  to  r7  If  used,  five  (x)  and  (r)  values  are  computed  and 
written  on  the  output  tape.  Then  the  area,  moments  of  inertia  and  centroid 
from  the  nose  are  calculated,  (Statements  24  to  25). 
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Section  89,  if  used,  is  a cone  described  by  two  points  If  it  is  not  included 
x9  is  set  equal  to  x8  and  r9  is  set  equal  to  r8.  When  this  section  is  used, 
two  values  of  (x)  and  (r)  are  written  on  tape,  and  then  the  area,  moments 
of  inertia,  and  centroid  from  the  nose  are  computed,  {Statements  25  to  53). 

There  are  two  options,  12.  and  13  , for  the  final  section,  one  of  which  must 
be  used.  The  first  is  a cap  described  by  five  (x)  and  (r)  values  which  are 
written  on  the  output  tape.  Then  the  area,  moments  of  inertia,  and  centroid 
from  the  nose  are  calculated.  The  other  option  is  a two  point  base  section. 
Two  values  of  (x)  and  (r)  are  written  on  the  output  tape,  and  then  the  area, 
moments  of  inertia  and  centroid  from  the  nose  are  calculated.  (Statements 
51  to  40). 

Next,  output  values  for  the  total  heat  shield  and  structure  weights,  WHS  and 
WST,  for  each  section  are  calculated.  If  one  or  more  rings  is  to  be  added 
to  the  vehicle,  the  appropriate  moments  of  inertia  are  computed  and  printed 
Then  the  total  vehicle  shield  and  structure  weights  called  WHSTQT  and 
WSTT0T,  are  calculated  along  with  the  vehicle  center  of  gravity  XCGHS 
and  moments  of  inertia  RQLLT  and  PITCHT.  Depending  on  which  sections 
have  been  included,  a tabular  printout  of  section  number,  area,  WHS,  WST, 
and  moments  of  inertia  is  provided,  followed  by  values  of  WHST0T,  WSTT0T, 
XCGHS,  and  WR,  the  entry  weight  less  heat  shield  and  structure  weights. 

If  WR  is  found  to  be  less  than  or  equal  to  zero,  work  on  the  present  case  is 
terminated,  a transfer  to  Statement  1000  being  made  for  consideration  of 
the  next  case.  If  WR  is  greater  than  0,  subroutines  BL,(£)CK2  and  BLOCKS 
are  called  to  carry  out  the  rest  of  the  computations  for  the  case  Then  the 
transfer  to  1000  is  made. 

E.  SIGNIFICANT  EQUATIONS 
1,  MAIN 


The  programmed  expressions  for  surface  areas,  center  of  gravity,  moments 
of  inertia,  and  weight,  are  very  straightforward,  and  only  the  case  of 
Section  2 is  given  here  as  an  example. 

Subroutines  GENSHP  and  TENSHL  perform  similar  calculations  for  the 
general  and  tension  shell  shapes. 


A=  AREA  (2)  = 2.  • ir  • R12  • (R01  * CTH1-  (THE TA1  - THETA2)  + R12* 

(STH1  - STH2)  + R12  . CTH1.  (THETA2  - THETA1 ))  (Statement  1002) 
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where, 


THETAl  = 0 
THETA2  = 0* 


CTH1  = cos  6 
STH1  = sin  0 1 
STH2  = 02  1 


X = XCG(2)  = WS1  * {WS2  + WS3)  (Statement  9210) 

WS1  a 2.  * tt-R12/AREA(2) 

WS2  = A12 1 . B12  • (THETAl  - THETA2)  + B12  • R12.(STHl  - STH2) 
WS*  = A121  • R12  • (CTHi  - CTH2)  - (R12)  * {(STH1)  - (STH2)  ) 

2 


where. 


CTH2  = cos  0 

WS1  = 2.  • ir  *WEBS(2)*  R12/32.17 
A121  = R1  - R12*  CTHI 
B12  = XI  + R12  • STH1 

WS2  = (A12lHTHETiU  - THETA2)  + 3.  (A121)-  R12*  (STH1  - STH2) 

WS3  = 3.  • A121  -(R12)  -((THETAl  - THETA2)/2.  - (SINF  (2.  *THETA2))/4  ) 

WS4  = (R12)3  . (STH1  . ((CTHl)2+2.)  - STH2  . {(CTH2)2  )) 

3 

R0LL(2)  a WS1  - (WS2  + WS3  + WS4)  (Statement  1002) 


where, 


WLBS(2)  = WHS(2)+  WST(2)  * STRFAC  (Statement  54) 

WS2  = A121-  (B12)2  -{THETAl  - THETA2)  + 2.  • A121*  B12-R12- 
B12-  R12*  (CTHI  - CTH2) 


2 

WS3  = A121  * (R12)  • ((THETAl  - THETA2)/2.  - (SINF (2.  * THETAl)  - 
SINF  (2.  • THETA2))/4  ) + (B12)Z*  R12  * (STH1  - STH2) 

WS4  = B12-  (R12)2-  {(STH1)2  _ (STH2)2)-  (R12)*  ((STH1)3  „ (STH2)3) 


PITCH(2)  = WSl-  (WS2  + WS3 
WHST0T  a S WHS(I) 

WSTT0T  = L WST(I) 


WS4)  + .5*  R0LL(2)  (Statement  9210) 
(Statement  1016) 


2.  BL0CK2 

WD  = WD  = . 11  • DIAD/18.  6 • QD/65.  • AD  (Statement  4444) 
PQ  = PD  = XD*  QD-  CDDGGI  • AD 
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where. 


CDDGGI  is  value  from  CDD  table  versus  Mach 

Amc  = AMC  = (2.  • G • SUSPM)/{RH0SL  • CDM  • (VV)2) (Statement  501 ) 
CD  cluster  = CDCL  = CDM  • ( 95  - . 03  AN) 

A^^  = area  of  each  chute  in  a cluster  = AMC  = (2.-  G -SUSPM)/ 

(RH0SL  • CDCL  • (VV)2  * AN)  (Statement  321) 

W cluster  = WMC  = .0013*  QMC*AMC*AN*(  98  + . 045  * AN)  (State- 
me  ' ' ment  215) 

t = TF  = DMC  ♦ ( 05  - 3.E-5  • VMC)  (Statement  21 4) 

2 2 

VR  = VR  = SQRTF((VD)  + (VW)  ) (Statement  406) 

AV=  DELV  s VR  - VIMP 

W /W.  = WFWI  = EXPF  (-DEX_iV/(XISP  • GTHET))  (Statement  41 1 ) 

3.  DERQZ 


V = DERN(l)  = (-D-SM  * G * SGAM)/SM  (Statement  2) 

X = DERN(2)  = (-G  • CGAM)/V 
Z = DERN{3)  = V-SGAM 

4.  ATM0S 


M = AM  = 28.  • XN  + 32.  - XZER0  + 44.  • XC  + 40.  • XA 
Cp  = CP  = R/AM  ♦ (3.  5-{XN  + XZER0)  + 4.  • XC  +2.5*  XA) 

Lo  = AL  = -FALR-  G/CP 
Z ST  = ZST  = (TST  - TSL)/AL 
T = TSL  + AL  • Z 


Troposphere 

FAC  = -1.  - AM*  G/(R»  AL) 

p = RH0  = ((TSL  + AL-  Z)/(TSL)FAG)-RH0SL 

FAC1  = CP  -AM/R  - 1.  (Statement  4) 

a = AS  = SQRTF  ((CP  • T)/FAC1) 

Stratosphere 

VAC' 

pST  = RH0ST  = ({TST/(TSL)  )-RH0SL  (Statement  2) 

p=  RH0  = RH0ST-EXPF  (-(AM  -G)/(R  • TST)  • (Z  - ZST) 
a = AS  = SQRTF  ((CP- TST)/FAC1) 


5.  BL0CK3 


SMIMC  = WL/32.2  . , . 

Sm  = SM  = SBLK3  = (ALPHA  * (RH0C)1  ') 

t = TBLK3  = YR2-R213/ETA 
R213  = (R2BLK3)<1-/3-) 

Ky/R2) 

WSl  = 1.  - YR2/ETA  (Statement  832) 

WS2  = 2.  • 17/3.  ♦ R2BLK3 

WS3  = (WSI  - (CTHM)2)-  (2.-  WSl  + CTHM) 

FMI  = RH0I-WS2.WS3 

WS4  = (1.  - (CTHM)2).  (2,  + CTHM)  - WS3 
FMC  = RH0C  • WS2  • WS4 

WSl  = 77  • RH0I  * C £>P/ 3 . • ((RCQ))2  + RC£>  • RWS  + (RWS)2)  (^ent_925) 

WS6  = 7T* RH0I/3.  * (RP1  - RC0/(TTHM)2}  * (2.  RP1  + RC0/TTHM) 

+ 7T.RH0I.  (RC0)2-CYP 

FMI  = WSl  + WS6  3 

FMC  = 2.  • 7 7-  (RH0C/3.  • (1.  -CTHM)*R0FX  - RC0/(STHM)  ) 

WS3  = WHSSTT  • XCGHS  + WR0C-(DEL4  + XLR  * . 5)  (Statement  987) 

WSl  = (1.  05-(WD  + WMC)  + WC  + WI)  • DEL4+  R2BK3 •(  1 . - CTHM))(Statement 
XCG0  = (WSl  + WS3)/WE  (Statement  991)  988) 


where, 

WHSSTT  = WHST0T  + WSTT0T  - 

X = XCGCR  = 3.  • (R2BK3- WSl /3.  * (1.  - CTHM)  - ((R2BK3)  (Statement 

C CR  4 987) 

- (R1BK3)  ) / 8.  • (STHM)  )/((l  - CTHM)  * WSl ) 

WSl  = (R2BK3)3  - (R1BK3)3 
h = H = R1BK3  • (1.  - CTHM) 

X„  = XCGI  = (WCAF-XCAP  + WCYL-  (H  + XLCY*  .5) 

CG. 

1 + WC0N  ■ (H  + XLCY  + XC0N))  / WCAP  + WCYL  + WC0N) 

WCAP  = WS2-  (H)2/3*  (3.-  R1BK3  - H) 

WCYL  = WS2  • (RC0)2  • XLCY  , 

WC0N  = WS2-  XLC/3.  ■ ((RC0)  + RC0  * RBK3  + (RBK3 ) ) 

XC0N  = XLC  *(RC0  - (2.  XLC)/(3.  • TTC0))/(2.*  RC0  - XLC/TTC0) 

YCAP  = 7T*(H)2/3*  * (3.-  R1BK3  - H) 

XCAP  = 77  / V CAP  * (2./3-(H)3'RlBK3  - .25-{H)4) 

WS2  = RH0I  • 77 
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Lenticular 


I 

XT0T/XCG 

° , o 

WS1  ^ WR0C/(2.  * GSTAR)  * (.  5 • (DR)  ) (Statement  990) 

WS2  = 2.  • 71  / 1 5 - • RH0C  • WS10  • (2.  - CTHM  {(STHM)  + 2, )) 

WS10  = (R2BK3)5-  (R1BK3)5 

WS3  :=  7T -RHtfl/2.*  (4./3.*  (R1BK3)  .(H)  - R1BK3.(H)  + (H)  ' ) 

WS4  = 1.05/2.*  (WD  +WMC)/GSTAR-  ((R2BK3  + (TC)2)  - (R2BK3)2) 

XITtfT  B S R0LL(I) 

XT0TCG  = XLT0T  + WS1  + WS2  + WS2  + WS3  + WS3  + WS4 
TC  = { 8 • (WD  + WMC))/(RCHUTE*  (R2BK3)2) 

Cone  - Cylinder 
I 

xt£t/scgo 

WS16  = .,5  WCYL/GSTAR*(RCQ5)2  + . 3 • RH£»I  * tt-XLC/3.  • ((RCA)2  (mlnt"994) 

+ RC0  • RBK3  + (RBK3)2  («RC0)5  - (RBK3)5)  /{(RC0)3  - (RBK3)3)) 

XT0TCG  = XIT0T  + WS1  + WS2  + WS3  + WS16  + WS4 

Lenticular 

I 

y T0T/XCG 

o 

WS5  = WHSTT/GSTAR  , (Statement  990) 

WS6  = (XCG0  - (XCGHS)“)  - (XCGHS)2 

WS7  = WR0C/GSTAR*  (((XLR)2)/12.  + (DR)2/l6* ) + (XCG&  - DEL4  - 
(XLR/2.)2)  , 

WS8  = 2.  * tt/3.*  RH0C ‘(R2BK3)  * WS11  * (1.  - CTHM)  - it  -R2BK3* 

RH0C/2.  • ((R2BK3)4  - (R1BK3)4)*  (STHM)2  + 2.  /15.*  RHjDC  • 

7T*  WS1 0 *(1 . - (CTHM)3)  + 77/ 15.  * RH$C*  WS10*  /{2.  - CTHM- 

((STHM)2  + 2.)) 

WS11  = (R2BK3)3  - (R1BK3)3 
VS  = 2.  * fir/3.  • (1.  - CTHM)  • WS11 

XBARS  = 2 • 77/VS  ‘(R2BK3*  WS1 1/3,*  (1.  - CTHM)  - ((R2BK3)4 
- (RlBK3)4)/8.  (STHM)2) 

WS9  = RH0C*  VS*  (XBARS)2 


6*  i O ' 


WS12  = 1 05*(WMC  + WJD)/GSTAR-  (R2BK3)2/3°°'  + ((R2BK3  + TC))2/4*  ) 

WS13  = 2 . * RH0C  * VS  * ((R2BK3  , * ( 1 , - CTHM)  - (XBARS))2 
WS14  = (WX  + WC  + 1.05-(WD  + WMC))/GSTAR-({XCG0  - DEL4 

- R2BK3  • (1 . - CTHM}))2 

WS15  = 2.  « (tt  *RH0I  *(R1BK3  *{H)4/2*  - (H)5/5 ‘ ) + 77 -RH0I/4. 

(4.  / 3 • (R1BK3 )2*  (H)3  - R1BK3*(H)I  (H)5/5*  ))  - 2.  • RH0I  • 

VCAP  • (XCAP)2  + 2 . • RH0I  ■ VCAP  - ((H-XCAP))2 
YIT0T  = £ PITCH(I) 

YT0TCG  = YIT0T  + WS5  * WS6  + WS7  + 2.  ■ WS8  - 2. -WS9  + WS13 
+ WS14  + WS15  + WS12 


Cone  - Cylinder 
I 

VT0T/XCG 

0 3 3 

WS17  = 2 . * tt/3  -RHCSC.(1  CTHM)  • {(R2BK3)  - (R1BK3)  ) • ((XCG0 

- DEL4  - XBARS))2  (Statement  994) 

WS19  = W CAP  / GSTAR  * ((XCGO  - DEL4  - TBK3  - XCAP))2  + WCYL/ 

GSTAR-  {{(XLCY)2/12,  + (RC^)2/4*<  + (XCG0  - DEL4  - TBK3 

- H - XLCY/2.  )) 

4/2  R/5 

WS18  = 77-RH0I  • (R1BK3  *{H)  * - (H)  ' ' ,)  + ir/4.  • RH0I  • 4. /3  • ~ 

(R1BK3)  *{H)  - R1BK3  • (H)  + (H)  X (-  RH0I  • VCAP-(XCAP) 

WS20  = WC0N/GSTAR-  {(XLC)2-  . 1 • ({RC0}2  + 3.  • RC0  • (RBK3)2)/ 
((RC0)2  + RC0  * RBK3  + (RBK3)2)  * . 15-  <((RC0)5  - (RBK)5)/ 
«RC<£)3  - (RBK3)3)) 

WS21  = WC0N/GSTAR-  (XC0N)  - ((XCG0  - HEL4  - TBK3  - H - 
XLCY  - XC0N))2) 

WS22  = 1.05*  (WMC  + WD)/GSTAR-  ((XCG0  - DEL4  - R2BK3  *(1.  - 
CTHM)  - . 1-R2BK3))2 

YT0TCG  = YIT0T  + WS5  * WS6  • WS7  + WS8  - WS  9 + WS17  + WS18 
+ WS19  + WS20  - WS21  + WS12  + WS22 


6.  R2B3  (Lenticular  Option  Only) 

WS1  = ((1.  - YR2/ETA  - CTHM))2 
WS2  = 2.  -2.  • YR2/ETA  + CTHM 

WS3  s=  RH0I  * WS1  • WS2 

WS4  s RHdC  • (((1.  - CTHM))2-  (2.  + CTHM)  - WS1  • WS2) 
R2BLK3  = (3  • SMIMC)/(2.  • tt-(WS3  + WS4)} 
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7.  BL3INT 


WS1  = SQRTF  (1.  - (U)2)/U 

WS2  = AC0S  (U)  {Statement  3) 

WS3  = (U)2 

WS4  = 0.  or  B<#  / (XN-2. ) (1.  - <U)(XN  “ 2) 

YR2I(I)  = WS4  + Bl..  5 (1.  /WS3  -1.)+  B2.s.5  *(WS2/WS3  - WS1) 

+ B3  *.5*  ((WS2)2/(U)2  - 2.  ‘WS2-WS1  - 2.-  1L<6GF(U))  (Statement  4) 


where, 


B0  = AO,  Bl  = Al,  B2  = A2,  B3  = A3 
U = 1.  - YR2F(I)/ETA 

YR2P(I)  = (1-1)  *DYR2  (Statement  2) 

Vo  2 2 
VFINAL  b SQRTF  ((VV)  + (VW)  ) 

WS1  = YR2P<I)/ETA 
WS3  = RH0C  77  /SM1MC 
WW4  = {(1.  WS1))2  YR2I(X) 

GUNC(I)  = WS3  {(WS1)2  - (WSl)3/3 
WW5(I)  = X.  - R£>FX  GUNC(I) 


/ 


FUNC(I)  = f WW4  (I)  /WW5(I) 
0 


8 PEAK 

WS1  = YR2P(I)/ETA 

WS2  = 2.  77  SM  (R213)  / (SMIMC  GSTAR) 

WS3  = RH0C  77  R2BLK3/SMIMG 
WS4  = ((1.  -WS1))2  YR2I(I) 

WS5  = 1.  - WS3  ((WS1)2  - (WS1)3/3*  ) 
PGCALi(I)  = WS2  WS4/WS5 
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(Statement  817} 


9.  R2B34 


YMR2 
WS2  = 
WS3  = 
WS1  = 
WS4  = 
WS5  = 
WS6  = 

WS7  = 
R0FX 


= ETA  (1.  - RCtf/fRj&FX)*^^^  STHM) 

1.  - XLCRC/TTC0  (Statement  5) 

2.  ir/3.  RH0C  (1.  - CTHM) 

SMIMC/WS3 

ff/3.  RHOI  XLRC  (1  + WS2  +{WS2)2) 

7 T RH0I/3.  ((1.  /STHM  - STHM))2  <2.  1STHM  + CTHM/ STHM) 
(WS4  - WS5  - 7 T RHft)I  XLCYRC)/ WS3 

WS6  + 1. /(STHM)3 

= WS1  4-  WS7  (RC0)  (Statement  8) 
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I.  INTRODUCTION 


A.  GENERAL  DESCRIPTION 

Program  1883  computes  the  equilibrium  gas  properties  in  the  stagnation  region 
behind  a normal  shock,  and  the  associated  radiative  heating,  - given  ambient 
conditions  of  density,  temperature,  and  molecular  composition  of  the  atmos- 
phere, the  shock  standoff  distance  and  the  flight  velocity.  The  shock  standoff 
distance  can  also  be  computed,  provided  sufficient  body  shape  data  are  given, 
based  on  the  correlation  of  standoff  distance  stored  m the  program. 

B.  CALCULATION  MODEL 

During  hyper  velocity  entry,  the  state  of  the  gas  behind,  a bow  wave  can  vary 
from  a highly  ionized  state  to  a molecular  and  atomic  state.  Enumerating  all 
the  likely  species  to  be  encountered  throughout  entry  to  solve  the  thermody- 
namic state  of  the  gas  would  require  an  equal  number  of  equations  to  be  solved 
simultaneously.  The  present  approach  is  an  approximate  method  which  divides 
the  thermodynamic  states  into  4 zones,  wherein  only  a few  major  reactions  gov- 
ern the  state  of  the  gas  result  in  simplified  and  more  rapid  solutions  for  the 
state  conditions.  For  example,  Figure  1 illustrates  the  variation  in  specie 
concentrations  with  temperature,  and  typical  zone  demarcation  lines  are  indi- 
cated for  initially  pure  CC>2  The  zone  division  is  performed  automatically  by 
testing  enthalpy  and  pressure. 

Assumptions  include: 

1.  Rigid  rotator  molecules 

2.  Harmonic  oscillators 

3.  Electronic  energy  states  are  not  considered  beyond  70,  000°K 

4.  The  enthalpy  of  all  molecules  is  taken  as  0 at  0°K 

5.  Equilibrium  thermodynamics  apply 

6.  Only  several  major  reactions  govern  the  thermodynamic  state  at 
any  time. 

The  calculation  model  is  described  in  detail  mReference  1,  and  a summary 
is  presented  herein  for  completeness. 
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Figure  1 TYPICAL  ZONE  MODEL  FOR  PROGRAM  1883 


1.  Stagnation  Point  Conditions 


During  hyper  velocity  entry,  the  state  of  the  gas  behind  a bow  shock  can 
vary  from  highly  ionized  to  atomic  and  molecular  states.  Enumerating 
all  the  likely  species  to  be  encountered  throughout  entry  would  require 
an  equal  number  of  equations  to  be  solved  simultaneously.  In  general,  a 
sufficient  number  of  chemical  reaction  equations, 

12* i XX  b, 


( where  A1  are  the  reactants,  the  products,  and  b2  , the  stoichiometric 
coefficients)  must  be  formulated,  such  that  taken  together  with  the  ele- 
ment and  charge  conservation  equations,  we  are  able  to  solve  for  the  specie 
concentrations.  The  present  program  considers  19  species,  4 elements 
and  electrons  and  hence  there  are  14  reaction  equations  and  5 conserva- 
tion equations. 

The  elements  considered  are  carbon,  oxygen,  nitrogen,  and  argon;  how- 
ever, the  conservation  relationships  are  utilized  in  terms  of  the  molecular 
concentrations  of  nitrogen,  carbon  dioxide,  oxygen,  and  argon  as  they  ap- 
pear m the  atmosphere.  The  complete  reaction  matrix  is  given  in  Table 
1-13,  page  46,  of  Reference  1. 

The  14  reactions  could  be  solved  at  each  point  along  the  trajectory  using 
the  method  of  the  minimization  of  free  energy,  e.  g.  Reference  2,  page 
207.  Since  the  reactions  cover  the  whole  range  of  species  to  be  encountered, 
at  any  one  time  only  a few  of  them  will  be  important,  which  leads  to  the 
alternate  method  of  solving  a small  number  of  concentration  equations 
simultaneously.  The  latter  approach,  demonstrated  by  Hansen^  for  air, 
is  utilized  in  the  present  program. 

For  each  reaction,  an  equation  involving  an  equilibrium  constant  is  formu- 
lated:^* ^ 


where  Z is  the  compressibility  factor  and  represents  the  number  of  moles 
of  gaseous  products  per  mole  of  reactants,  and  X (AJ  ) and  X(BA  ) are  the 
moles  of  reactants  and  products,  respectively. 

The  equilibrium  constants  are,  in  turn,  calculated  from  kinetic  theory  using 
spectroscopic  and  structural  aspects 'of  the  individual  molecules,  atoms 
and  ions.  2,  3 

The  equilibrium  constants  are  expressible  as 
4Eo  V1 

Kp  - --JJ-  + 2-,\  '»Qp(B;)  - 

where  Qp(A^)  and  Qp(BA)  are  the  partition  functions  of  the  individual  molecule; 
atoms,  ions,  and  electrons,  and  AEq  is  the  change  in  the  zero  point  energy 
for  the  reaction.  The  expressions  for  the  equilibrium  constants  and  parti- 
tion functions  are  given  in  Reference  1,  Tables  1-15  and  1-18. 

The  partition  functions  and  equilibrium  constants  are  given  in  terms  of 
pressure  and  temperature  and  hence  the  solution  to  the  species  concentra- 
tions is  obtained  for  these  two -state  variables.  During  entry,  sufficient 
trajectory  data  exist  to  compute  the  total  enthalpy  and  to  estimate  the  stag- 
nation pressure  closely,  and  hence  an  iterative  solution  of  the  specie  con- 
centrations is  required  to  determine  the  temperature  of  the  gas  as  well, 
such  that  the  stagnation  enthalpy  is  matched.  The  enthalpy  of  the  gas  given 
by: 


a*  /n  Q (A-) 


must  equal  the  stagnation  enthalpy  during  flight: 


HM 

_ V2 

M haM 

RTq 

2 

RTo  + RTo 

The  stagnation  pressure  is  approximated  as: 


2116 
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The  velocity  (v)  is  input  in  fps,  the  density's  RH$A  in  slug/ft^,  and  the 
ambient  temperature  TA  m degrees  Kelvin ( K). 

For  the  approach  selected,  of  solving  a limited  number  of  key  concentra- 
tion relationships  simultaneously,  a prion  knowledge  is  required  of  the 
relative  importance  of  the  reactions  for  various  flight  conditions.  Hence, 
tabular  data  were  computed  and  stored  m the  program  as  Table  1-19  in 
Reference  1,  which  specifies  zones  of  HM/RTq  and  P,  where  the  number  of 
simultaneous  algebraic  equations  for  the  species  concentrations  can  be 
optimized.  The  dominant  reactions  in  each  zone  are  discussed  in  Refer- 
ence 1. 

The  general  nature  of  the  solution  proceeds  as  follows 
Trajectory  Data 


V,  pa,  Ta,  XN,  XC,  XO,  XA 

Zone  Table 
and 

Zone  Selection 

Iterate  on  T 
to  locate  gas  state 
by  matching  HM/RT0 


Solution  yields  concentrations,  and 
state  variables  for  stagnation  point 
behind  normal  shock. 


The  radiation  heating  is  computed  for  a parallel  slab  of  gas  at  uniform 
stagnation  temperature  and  pressure  of  thickness  (A)  DELTA.  The  heat- 
ing is  given  by 

Q R = 7ct  T4 
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where  a = the  Stefan-Boltzmann  constant.  The  calculated  emissivity  of  the 
gas  accounts  for  absorption,  and  is  given  as: 

7 = 1 — 2 Ej  (2^) 

where  ^ is  the  optical  path  length  of  each  radiating  specie. 


!5  24  — A 


and  E3  (r)  is  defined  as: 
1 


E3  (r) 


I 


-t/s 


Tabular  values  of  1 - 2E3(r)  are  shown  in  Table  I and  are  used  in  the  com- 
puter program. 


— Tj/T 


5 4 x 10 


,19 


(T  x 10~4)ni 


where  Nj  is  the  particle  density  of  the  radiating  species. 

The  values  of  Q,  Tj , ni  for  the  corresponding  species  Xx  are  given  m 
Table  1-20  in  Reference  1.  A detailed  discussion  of  the  radiation  heating 
model  is  given  m Reference  1 also.  The  standoff  distance  ( A)  may  be  input, 
or  the  nose  geometry  can  be  input,  in  terms  of  RN,  RSN,  THNas  shown  m 
Figure  2 which  utilizes  the  correlations  of  Reference  5 as  shown  in  Figure 
3. 

2.  Limitations 

The  limitations  of  the  calculation  model  are  discussed  in  Reference  1, 
page  49,  from  the  point  of  view  of  the  kinetic  theory  approximations. 

The  flight  speed  range  and  atmosphere  limits  are  governed  by  the  range 
of  species  considered.  Doubly  ionized  carbon,  oxygen,  and  nitrogen  ions 
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and  singly  ionized  argon  are  considered  in  the. extreme  temperature  range, 
hence,  the  calculable  flight  speed  regime  is  higher  for  mixtures  without 
argon.  As  the  program  was  developed  primarily  for  high-speed  studies, 
its  use  for  low -temperature  work,  corresponding  to  flight  velocities  below 
8000  fps,  is  not  recommended. 

Because  of  the  nature  of  the  algebraic  equations,  several  limitations  arise 
in  specifying  concentrations;  both  the  concentrations  of  argon  and  oxygen 
can  be  specified  as  zero,  but  the  concentrations  of  CO2  and  N2  should  be 
greater  than  10~3. 

The  radiation  model  uses  the  parallel  slab  approximation  and  assumes  an 
isothermal  gas  layer  of  uniform  composition;  hence,  the  results  will  tend 
to  be  conservative,  especially  at  large  radiative  heating  rates  when  the 
radiation  heat  loss  approaches  the  energy  content  of  the  gas.  This  limit 
has  been  treated  by  Wick£  Yoshikawa  and  Chapman.  ? 

The  limitations  of  the  model  to  predict  the  standoff  distance  are  discussed 
under  Program  1880. 

Comparative  results  obtained  from  Program  1883  with  those  obtained  from 
JPL  and  Ames  Programs  are  given  in  Figure  4. 


TABLE I 


TABULAR  VALUES 
OF  7 


j TAUTBL 

j EFSTBL  (c)  I 

tl) 

0 

(1) 

0 

(2) 

0.01 

(2) 

0 02 

(3) 

0.05 

(3) 

0 092 

(4) 

0 1 

(4) 

0 168 

(5) 

0 2 

(5) 

0 298 

(6) 

0 3 

(6) 

0 400 

(7) 

0 4 

(7) 

0 486 

(8) 

0 5 

(8) 

0 558 

(9) 

0 6 

(9) 

0 618 

, (10) 

0 7 

(10) 

0 668 

(ID 

0 8 

<H) 

0 712 

(12) 

0 9 

(12) 

0 750 

(13) 

1 0 

(13) 

0 782 

(14) 

1 1 

(14) 

0 810 

(15) 

1 2 

(15) 

0 834 

(16) 

1 3 

(16) 

0 854 

(17) 

1 4 

(17) 

0 872 

(18) 

1.5 

(18) 

0 888 

(19) 

1 6 

(19) 

0 900 

(20) 

1 7 

(20) 

0 912 

(21) 

1 8 

(21) 

0 923 

(22) 

r 9 

(22) 

0 932 

(23) 

2 0 

(23) 

0 939 

(24) 

2 5 

(24) 

0 967 

(25) 

3 0 

(25) 

0 982 

(26) 

3 5 

(26) 

0 990 

(27) 

4 0 

(27) 

0 994 

(28) 

6 0 

(28) 

0 999 

(29) 

10  0 

(29) 

1 00 

(30) 

1 OE  + 10 

(30) 

1 00 
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II.  USAGE 


A.  INPUT  DEFINITIONS 


External 

Name 

Preset 

Values 

Symbol 

Parameter 

Units 

ATM0S 

A number  of  the  form  XX.  XX  for 
identification. 

- 

CASE 

A number  of  the  form  XX.  XX  for 
identification. 

- 

DATE 

A number  of  the  form  XX.  XX  for 
identification. 

- 

DELTA 

0. 

A 

Shock  detachfhent  distance. 
If  = 0,  A is  computed  from  a 
geometry  correlation. 

feet 

MEM0 

A number  of  the  form  XX.  XX  for 
identification. 

- 

RC 

0. 

Cylinder  radius. 

feet 

rh<2a 

0. 

Pa 

Ambient  density. 

slug /feet  3 

RN 

0. 

RN 

Nose  radius  used  for  A correla- 
tion (see  DELTA). 

feet 

RSN 

0. 

Rsn 

Shoulder  radius  for  A correla- 
tion (See  DELTA). 

feet 

TA 

0. 

Ta 

Ambient  temperature. 

°K 

THN 

0. 

Nose  angle  used  for  A correla- 
tion (See  DELTA). 

degrees 

Y 

0. 

Y 

Vehicle  velocity. 

ft/sec 

VEHICL 

A number  of  the  form  XX.  XX  for 
vehicle  identification. 

- 

XA 

0. 

XA 

Mole  fraction  of  A in  atmosphere. 

- 
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External 

Name 

Preset 
V alue  s 

Symbol 

Parameter 

Units 

XC 

0. 

XC 

Mole  fraction  of  CC>2  m atmos- 

phere. 

— 

XN 

0. 

XN 

Mole  fraction  of  N2  atmosphere 

. 

X0 

0. 

X0 

Mole  fraction  of  02  atmosphere 

— 

B.  INPUT  PROCEDURES 


The  following  procedures  are  to  be  observed  when  formulating  inputs  for  Pro- 
gram 1883: 

1.  All  data  are  numerical  and  may  be  written  with  decimal  points. 

2.  Since  all  variables  have  been  preset  to  0.,  before  the  first  case,  only 
those  which  are  to  be  non-zero  must  be  input. 

3.  The  concentrations  of  oxygen  and  argon  may  be  equal  to  zero;  however, 
the  concentrations  of  nitrogen  and  carbon  dioxide  should  not  be  less  than 
0. 001. 

4.  Argon  is  included  only  in  Zones  1 and  2 and  hence,  if  the  flight  condi- 
tions are  outside  of  these  limits,  one  must  ensure  that  the  concentrations 
of  oxygen,  carbon  dioxide,  and  nitrogen  total  unity. 

5.  A set  of  computer  input  forms  are  provided  for  the  user.  All  the  data 
shown  on  the  form  is  keypunched  when  the  variable  is  supplied. 


C.  OUTPUT  DEFINITIONS 


External 

Name 

Preset 

Values 

Symbol 

Parameter 

Units 

ATM0S 

ATM0S 

Number  of  the  form  XX.  XX  used 
for  identification  of  the  atmos- 
phere. 

CASE 

CASE 

Number  of  the  form  XX.  XX  used 
for  identification  of  the  case. 



DATE 

DATE 

i 

Number  of  the  form  XX.  XX  used 
for  identification  of  the  problem 
run. 

DELTA 

DEL 

A 

Detachment  distance. 

feet 

EPSIL0N 

EPBAR 

€ 

Total  effective  emissivity. 

— 
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External 

Name 

Internal 

Name 

Symbol 

Parameter 

Units 

EPSILON  (I) 

EPS 

Table  of  emissivities  for  each 
radiation  source. 

HD/HS 

HDHS 

VHS 

Ratio  of  dissociation  enthalpy  to 
stagnation  enthalpy. 

— 

HM/RT0 

HRT 

HM/RTq 

Stagnation  enthalpy  ratio, 

— 

MEM0 

MEMO 

Number  of  the  form  XX.  XX  used 
for  identification  of  the  problem 
run. 

QI 

QI 

Radiative  heating  contribution  of 
each  source. 

Btu/ft^-sec. 

QR 

QSUM 

Total  radiation  heating  at  stagna- 
tion point.  . 

Btu/ft^-sec. 

RH0S/RH0 

RH0ST 

PS'?* 

Ratio  of  stagnation  density  to 
ambient  density. 

— 

TS 

T 

Ts 

Stagnation  temperature  . 

- °K 

VEHICL 

VEHICL 

! 

Number  of  the  form  XX.  XX  for 
vehicle  identification. 

-- 

X 

X 

X. 

1 

Specie  concentration. 

moles 

ZS 

z 

z 

Total  moles  of  species. 

moles 

1.  Chemical  Terms 


Although  conventional  chemical  symbols  are  utilized  in  the  text  and  espe- 
cially in  writing  chemical  reactions,  the  symbols  used  in  the  program  and 
occurring  on  the  program  printout  sheets  must  include  only  captial  letters 
without  subscripts.  The  following  table  summarizes  the  nomenclature  for 
all  the  species  considered  in  the  program: 


Program  Symbol 

Chemical  Symbol 

Chemical  Name 

0 

o 

Atomic  oxygen 

02 

°2 

Molecular  oxygen 
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Program  Symbol 

Chemical  Symbol 

Chemical  Name 

C 

C 

Atomic  carbon 

C0Z 

co2 

Carbon  dioxide 

C0 

CO 

Carbon  monoxide 

N 

N 

Atomic  nitrogen 

N2 

N2 

Molecular  nitrogen 

A 

A 

Argon  (monatomic) 

0+ 

o+ 

Singly  ionized  atomic  oxygen 

0++ 

o++ 

Doubly  ionized  atomic  oxygen 

C+ 

c+ 

Singly  ionized  atomic  carbon 

C++ 

C++ 

Doubly  ionized  atomic  carbon 

N+ 

N+ 

Singly  ionized  atomic  nitrogen 

N++ 

N++ 

Doubly  ionized  atomic  nitrogen 

N2+ 

N + 
xn2 

Single  ionized  molecular  nitrogen 

A+ 

A+ 

Singly  ionized  argon 

CN 

CN 

Cyanogen 

N0 

NO 

Nitric  oxide 

E- 

e“ 

Electrons 

D.  SAMPLE  PROBELM 


1.  Statement  of  Problem 

Determine  the  radiation  heating  for  a specified  flight  condition  for  a 
gas  mixture  of  51.  2 percent  nitrogen  and  48.  8 percent  carbon  dioxide. 


2: 


2.  Input  Form 


The  input  form  containing  the  necessary  data  is  shown  on  a following  page. 
Case  1 typifies  the  input  when  the  vehicle  geometry  is  specified,  and  Case 
2 is  the  optional  input  of  specifying  the  shock  stand  off  distance.  All  the 
variable  names  for  which  data  are  given  should  be  keypunched. 

3.  Output  Form 

The  output  is  shown  on  the  following  pages.  The  keypunched  data  are  shown 
and  should  he  compared  with  the  input  form.  The  emissivities  of  each 
specie  contributing  to  the  radiation  are  given  as  well  as  the  total 
emissivity  including  self  absorption  (grey  gas  approximation). 

The  stagnation  temperature,  compressibility  factor,  shock  density  ratio, 
radiation  heating,  enthalpy,  and  dissociation  energy  are  given.  The 
concentrations  of  the  individual  constituents  are  given  as  well  as  the 
radiation  contributions  of  the  species  considered. 

E.  DIAGNOSTICS 

The  number  of  messages  are  given  in  the  printout  reflecting  the  following 
program  diagnostics. 

1.  N0  VALID  S0LrUTI0N 


The  equilibrium  gas  dynamics  (1883)  solution  was  not  able  to  obtain  a 
solution  with  positive  concentrations  for  all  the  species  satisfying  the 
elemental  and  charge  conservation  relationships.  In  this  case,  the  data  is 
linearly  interpolated  between  the  last  and  the  next  point  for  which  a solution 
is  found. 

2.  N0T  C0NVERGED  IN  3 0 ITERATI0NS 

The  equilibrium  gas  dynamics  (1883)  solution  was  unable  to  converge 
within  3 0 iterations  to  within  1 percent  on  the  enthalpy;  use  the  last  value 
found. 
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DIGITAL  COMPUTER  INPUT 
REQUEST  FORM 

PROBLEM  NO  1883 

j programmer  D,  Gillespie 

TITLE 

Radiation  Heating  Program 

MEMO  NO 

SECTION  NO 

WORK  ORDER  NO 

(E240  USE  ONLY) 

REQUESTED  BY 

EXT 

EST  TIME 

PAGE  J OF  J PAGES 

$INPUT 

DATE  = 

MEM0  - 

, CASE  = 

, ATMQ5S 

_ 

, VEHICL  = 

DELTA 

RSN  = 

XA 

RC 

= 

TA  = 

XC 

= 

, 

RH0A 

= 

THN  = 

XN 

= 

, 

RN 

= 

9 

V = _ 

t 

X0 

= 

$ 
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FILE  BLOCK  ORIGIN 

— files u intros 

7.  UNIT06 

— FILE— trlST— ORIGIN 

PRE-EXECUTION  INITIALIZATION 

OBJECT  PROGRAM 


-02750 

02  75  A 

— 02777  * “ 

03004  THRU  46035 


I/NAHE/=fiON  0 LENGTH,  { LOC  )= DELETED,  *=NOT  REFERENCED! 


3.  SGETN1  04162 
si  SARTLU  13223 
7 • SFNDH1  16157 

?!  SGETK1  21031 
-lOs-SFNOT-l — — 
11.  SZ0NS1  22070 


AR2TLU  03306 
"WV?yi; — 04146  ~*~ 
GETN1  06152 

— HVS71- 12205 

ARTLU  13435 

— HEAT1 15  754 

FINDH1.  15S16 

—GtTQl 20707 

GETK121363 

ZONE SI  25624 

— VtrXSTR 25  76 1-*— 

. LXCAL  26056  * 


-rtXSTP 25773- 

.LXERR  26056 

-rtFRL 2644 1 -4 

.ATTAC  26453  4 

IlTSX  26537  4 
__G0 26622— 


.LXOUT  26041 
.DSCLS  26240  * 
.LUNB  26442 
.CLOSE  26455 
.REAOR— 26503 
.AREAL  26551 
.OERR  26636 

• LXTST-  26674-4 
.LXFLG  27020  * 
.-FPARG — 27 164— 
:.3  27241 

27245  - 


.LXGVL— 26734  * 
•LTCH  27021 
-/.-COUNT /— 27 166- 
E.4  27242 

— 0C-.4 27246 


Four 


27700 


.FOUT.  27700 


IBLDR 


12Z01/64 


27.  FRDU  35201 

-28v-UN05 35243 

20.  UN06  35243 

31.  JPLRT  37474 

— 32»-Ue0IV 40734 

33.  JPRT1  41033 

--3Vr-ftM 41-315- 

35.  FXPF  41456 

— 36-.-F5C-N 41576 

37.  FSQR  42007 


rB-r-. rfOGSH  46036 


--FHRO-, 345-74 i-FREST — 35077-»- 

.FROU.  35201 

-sONOS.  — 55242 

.UN06.  35243  .BUPSZ  35244 

.r-lOU. 35247 .€3010—  35-722 

POLROT  40651 

310401 V — 40-775 

POLRTt  41216 

— AL-f>b  10 41-3 1 5-4 ALOG  41317 

EXP  41456 

-COS 41576 SEN 41600  - 

SORT  42007 

-=XP3.—  -42114—  “ 

.HO)  42241  . HONSH 

- 42473 s+TTC  . 

.0P4  43031  * -0P7 

.REAOs 43151 .RER1. 

-FEEIT  43515  -GTIOX 

-.SEL  59— 44-736  4 --  .BSft. 

.TCHEX  46032  .BASIO 


42261 

42506 

43062  * 

43174 

43536 

45347 

46035  * 


.NHL ST  -35745  .NAME;-  -37050— 


-.INTAP — 37051- 


.TEOR  42330 
.SHI  42720  * 
.0P9.2  43076  * 

.HRIT.  43176 
.RH7  43654  * 
.EOTOF  45474 


•OEFI.  42410 
.SH9  -42762  * 
-RLSE.  43150 
•HNTIA-  43364  *- 
-RE7  44273  * 
• ETGF3  -45502  * 


.JOINX  42454  * 
.OPEN.— 43003- 
•RER2.  43150 
.EOF  EX  —43445-*- 
.ENDTR  44734 
.5HITC— 45531  - 


l/O-OUFFERS  - 


-46036  THRO-  77741 


UNUSED  CORF 


77742  THRU  77777 


* INPUT 


XN 

XO 

XA 

XC 

THN 

RN  ‘ 

«C 

RHOA 

TA 

DELTA  _ 

ATHOS 

VEHJGL 

RSN 

OATE 

HFHO 

CASE 

$ FNO 


0.19705000E  05, 
0.51200000E  00, 
O.OOOOOOOOE-38, 
O.OODOOOOOE-38, 
0, 48800000E  00, 
0.66920000F  02, 
0.16243400E  02, 
0.67651000E  01, 
0.12100000F— 05, 
0.10000000E  03, 
0.00000000E-3B, 
0.30000000E  01, 
0.99900000E  01, 
Q.67680000E  00, 
0.40100000F  01, 

n.ioooaoooE  ot, 

0. LOOOOOOOE  01, 
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OAT  6 4.01  CASE  1.00  MEMO  1.00  ATMOS  3.00  VEHICLE  9.99 


»H0aFL8W-AT— 40763—1 N— A€-  AHO-MQs 


8.799536-06  2 7.1484ZE-0S  3 

— OvBOOOOF-TO 8 -4r433  64E— 03— 9 — 

1.2 0091 P-06  14  1.15892E— 06  15 


J— 2-1  — 


3.60825E-09  4 

-1.53081E-08  10 
Z.31807E-07  16 
— O. OOOOOE— 39 


0.000006-39  5 
Z.961 27E— 03  II 
5 .56989E— 30  17 


6. 99787 E— 04  6 0. 000005-: 
4.62941 E-03  1Z  8.68609E-< 
3.82328 E-26  18  6.9385 IE- I 


K 57623 E-03  DELTA-* 9.-92675E-01 

ZS - RHOS/RHO 

)4 9-.T-6 122 614E— 6 1 O.  17042358 E 02 


(JR 

0 .44432617 E 02 


HD/HS 

0.58907126E  00 


HM/RTO 

0.28240456E  03 


- XI  MALAR-  CONC-.-J — 
0.39843028E  00 
0. OOOOQOOOE— 38 “ 
0.47152183E  00 


qi 


0.85885380E-03 
O. 492760 15F-02 — * 
0.15619319E-01 
0. -1-6934 164E-04-  - 
0.53380483E-05 
0.87616135E-04 — 
0. 1 11Q3584E— 03 


0. 11474966E— 05 


o.ooooooooe-:- 


N2  1 0. 455 8949 5 E— 01 

H2-2 0.37035265E  00  - - 

HZ  0.18693974E-04 

£02-1-3 O.OOOOOOOOE— 38 - — 

CO  0.36255298E  01 

-B2-S-R 0.  OOOOOOOOE— 36 

02  O.OOOOOOOOE— 38 

O 0. 2297024 IE-03 

N 0. 79309766E— 04 

6H-RE0 — 0. 15342035E  02  - -- 

CM  VI □ 0.2 398449 2E  02 

HO  B— 6 0.45001797E  00  

HO  16  0.62217899E-02 

HO  - 0.600423 l 3E-02  -- 

C 0. 12009694E-02 

06 0.28857057E— 25  

M*  0.19808027E— 21 

£+ - - 0.35947726E-17 

H2I-  0*6008471  IE  00 

A-  - ~ O.OOOOOOOOE— 38  

A+  O.OOOOOOOOE— 38 


O.I9705QOOF  05, 


0.512000008  00, 


0. 00000000 E-38, 


0 . OOOOOOOOE— 3 8 , 


0.48800000E  00 
0.66920000E  02 


0.162434006  02 


0.676310006  01 


0. 121000006-05, 
0.10000000E  03 


0.10107000E  01 
0.30000000E  01, 


0.9990000GE  01 


0.67680000E  00, 


0.40100000E  01 


0. 10000000E  01 
0.70000000E  01, 
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« end 


III.  COMPUTATIONS 


A.  BLOCK  DIAGRAM 

The  block  diagram  for  Program  1883  is  given  in  Figure  5. 


65-11 703 


Figure  5 BLOCK  DIAGRAM  FOR  PROGRAM  1883 


B.  SYMBOLS 

Eq  zero  point  energy 

total  enthalpy  of  specie,  Btu/mole 
H total  enthalpy,  Btu/mole 

equilibrium  constant  for  reaction 
M mean  molecular  weight  of  atmosphere 

Nx  number  density  of  ifck  specie,  particle s/cm^ 


£88  < 


p 

R 

QR 

Ta 

T 

To 

V 


X(  ) 

XA,  XC,  XN,  XO 


Z 


pressure,  atmospheres 
universal  gas  constant 

equilibrium  radiative  heating  rate,  Btu/ft^-sec 
atmospheric  temperature,  °K 
temperature,  °K 

reference  temperature,  273.  16  °K 
flight  velocity,  fps 
molar  concentration 

molar  concentrations  of  argon,  carbon  dioxide,  nitrogen, 
and  oxygen  m atmosphere 

compressibility  factor;  number  of  moles  of  products  per 
mole  reactants 


L 


emissivity  per  unit  thickness,  cm"*  1 


Ti  optical  path  length,  feet 

€ emissivity,  accounting  for“absorptivity  (smeared  out  model) 

3 

Pa.  atmospheric  density,  slug /ft 

C.  EQUATIONS 

1.  Basic  Equations 
a.  Enthalpy 


H M Eo i T2 

■^0  = + lo 


(1) 


HM 

RT 


(2) 
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b.  Energy  of  Dissociation 

hpm  Eqi 

RT„  RT0  <3' 

1 

c.  Equilibrium  Constants 

The  equilibrium  constants  for  all  the  reactions  used  in  the  program 
are  given  as  a function  of  (T,  P)  m Reference  1,  Table  1-15, 

d.  Partition  Functions 

The  partition  functions  for  all  the  species  considered  m the  program 
are  given  as  a function  of  (T,  P)  in  Reference  1,  Table  1-18, 

e.  Zero  Point  Energies 

The  zero  point  energies  used  are  given  m Reference  1,  Table  1-14. 

It  is  important  to  note  that  the  values  for  all  molecules  are  zero. 

2.  Zone  1 


a.  Major  Species 

1)  Six  major  species  considered: 

Six  major  species  considered 
X(N2),  X(C02)sX(C^),  X(A),  X(CO),  X(0) 

b.  Major  Specie  Reactions 

C02  ■»  CO  + 1/2  02 
02  - 20 

c.  Major  Specie  Conservation  Equations 


X(N2)  = XN  (4) 

X(C02)=  XC  - X(CO)  (5) 

X(02)  = XO  + (1/2)  X(C  O)  — (1/2)  X(CO)  (6) 

X(A)  = XA  (7) 


J>G0< 
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d.  Equilibrium  Constants  for  Major  Species  Reactions 


[X(C0)W[X(C>2)]  VP 
[X(C02)]  yfz 


- [X(0)]2  P 

P2  ~ [X(02)1  z (9) 

Total  moles:  (10) 

Z « XXj  = 1 + (l/2)X(CO)+(l/2)X(0) 
e.  General  Solution 

There  can  be  as  many  as  six  major  species  governing  the  thermo- 
dynamic state  of  the  gas.  Hence,  six  equations  are  required  to  be 
solved  (identified  as  Equations  (4)  through  (9)).  The  auxiliary  equation 
for  the  compressibility  factor  Zis  given  by  Equation  (10).  Making  use 
of  Equations  (5)  and  (6),  and  combining  Equations  (8)  and  (9),  an  ex- 
plicit solution  for  the  CO  concentration  can  be  found,  namely, 


X(CO)  Polynomial 
4 

CxX(CO)4_1  = 0 

I = J 

Cl  = KP1  VkP2 


C2  =>  Kp2  \/Kp2 


f2KPl 

( VKP2 


(1-XC)  + XC  - 1 


- xoj 


C3  = KP1  XC  ) XO  + 1 + ■ ■ (XC 

' V Kp2 


-*} 


c4  = 2 (XC)Z  Kp 


(ID 
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3.  Zone  2 


a.  Major  Species 

Six  major  species  are  considered  in  Zone  2: 

X(N2),  X(N),  X(A),  X(0),  X(C),  and  X(CO)  . 

b.  Major  Specie  Reactions 

N2  -»  2N 
CO  -»  c + o 

c.  Major  Species  Conservation  Equations 


X(n2)  = XN  - (1/2) X(N)  ' (12) 

X(CO)  = XC  - X(C)  (13) 

X(O)  = 2X0  + XC  + X(C)  (14) 

X(A)  = XA  (15) 


d.  Equilibrium  Constants  for  Major  Species  Reactions 


__  [X(N)j2  P 

P3  * X(N2)  Z 


(16) 


kp4 


[X(c)j  [ X(p)3  P 
X(CO)Z 


(17) 


Z = 


X(N) 

1 + XO  + XC  + + X(C) 

2 


(18) 


e.  Minor  Species 

A large  number  of  minor  concentrations  are  considered  in  Zone  2 
because  of  their  importance  in  the  radiative  heating  calculations. 
Eight  minor  species  are  considered: 

X(CN),  X(NO),  X(N+)  , X(C+ ),  X(0+ ),  X(A+ ),  X(N2+),  and  X(e"  ) . 


*dQi2< 
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f.  Minor  Species  Reactions 


N -*  N*  + e“ 

0 -»  0+  + e“ 

C -*  C1-  + e“ 

A ->■  A+  + e~* 

N+  -»  N+  + N 
2 

C + N - CN 
N + O -»  NO  . 

g.  Minor  Species  Concentrations 


. z X(O) 


(19) 


X(N+)  = K 


Z 

p8  ^ 


X(N) 

X(e") 


(20) 


X(N2)  = - 


X(C) 

X(e“) 

[X(N)]  2 
X(e~) 


(21) 


(22) 


P 

X(CN)  = X(C)X(N)Kp5  — 


(23) 


p 

X(NO)  = X(N)X(0)Kps  — (24) 

r 2 Z KP8 

[X  (e-)  ] = — X(O)  Kp7  + X(N)Kpg  + X(C)Kp9  + X(A)Kp  u + [X(N)  ] 

p kp13 


-26- 
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(25) 


h.  General  Solution 


X(N)  Polynomial 

5 


(26) 


5-i 

X(N)  = 0 


C1  - - (KP4)(4P  + kps)  - 2P  [2P  - kp3]  - -F 

(Kpa)  (Kp^ 

C = [XN  - (1  + XC  + XO  +■  XC)  ] + [4P  (2XN  - 2 - XC)3 

z 2 8 


2 

KP3 

(2  - 2XN  + XC) 

8 

c3  *=  (Kp3)  (Kp4)  XN  U + XO  + 2XC)  + P (Kp3)  XN  (2  + XC) 

2 2 2 
KP3 

[ XN2  - 2XN  (2  + XC)  + (1  + XC  - XOXC  - XO2)] 

8 

2 

Kp3 

C4  — [ XN2  (2  + XC)  - 2XN  (1  + XC  - XOXC  - XO2)  ] 

C5  * - Kp3  XN2  (1  + XC  - XOXC  - XO2) 

IT" 


X (CN) 

4 

E 

l = 1 


Polynomial 


r 4 

Cx  [X(CN)1 


2 2 

C4  = - [ X(C)  ] Kp^  X(N)  P [X(C)  + XO+  2X0  ] Kp6 
c3  = (Kp5)X(C)[X(C)Kp5H  + D+  2WSG  ] 

H = PKp6  [X(C)  + XC  + 2X0] 


(27) 
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2 , 

D = p (Kp6)  [X(C)  + XC  + 2X0]  CX(C)  + XC  + 2X0  + X(N)] 

+ [1  + XC  + X0  + X(C)  + -i-X(N)]  [xco  + XC  + 2X0)  Kp6  ] 

WSG  = - (Kp6  - Kp5)  X(N)  p kp6  [XCO  + XC  + 2X0] 

c2  = X(C)KP5(F+2WSH)  + F (WS2)  +(Kp6  - Kp5)  (D  + WSG) 

F Kp6  [X(C)  + XC  + 2X0  ] - Kp6  P EX(C)  + XC  + 2X0  ] 

WSH  = (Kp6-Kp5)  PKp6[X(C)  + XC  + 2X0] 

WS2  = Kp6[X(C)  + XC  + 2X0] 

C1  = <KP6-KP5)(F+ WSH) 

4.  Zone  3 

a.  Major  Species 

Seven  major  species  are  considered  in  zone  3: 

X(N),  X(C),  X(0),  andX(e-). 

b.  Major  Species  Reactions 

N -►  N*  + e~ 

C - C+  + e“ 

+ 

0 -»  0 + e 


c.  Major  Specie  Conservation  Equations 

X(N)  = 2XN  — X(N+)  (28) 

X(C)  = XC  - X(C+)  (29) 

X(0)  « 2X0  + 2XC  - X(G+)  (30) 


-28- 
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X(e“)  = X(f^)  + X(C+)  + X(0+) 


(31) 


d.  Equilibrium  Constants  for  Major  Species  Reactions 


XCO^Xfe  )P 


X(0)Z 

(32) 

XCN4)  X(e“)  P 

X(N)  Z 

(33) 

X(C*)  X(e*~)P 
X'C)  Z 

(34) 

Total  moles 

Z = 1 + XN  + XO  + 2XC  + X(e— ) (35) 

e.  Minor  Species 

A number  of  minor  concentrations  heavily  influence  the  radiative 
heating  and  the  following  additional  specie  concentrations  are  required- 

X(CN),  X(NO),  XCNj) 

f.  Minor  Species  Reactions 

C + N - CN 

N + 0 •*  NO 

N*  + N -*•  Nj 

g.  Minor  Species  Concentration 

X(CN)  = X(C)X(N)Kp5  i (36) 


X(NO)  = X(N)  X(0)  Kp6 


(37) 
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(38) 


X(Nj  ) = 


X(N+)  X(N) 

KP13 


P 

Z 


h.  General  Solution 
X(C+)  polynomial 

5 

^ ] CjXCC4-)]  5-1  = 0 
1=  1 

Cj  = (Kpg  — Kp9)  (Kpy  — Kp9)  (Kpp  + P) 

C2  = (Kp9  + P)  { 2XNKpg  (Kpy  - Kp9)  + 2 (XC  + XO)  Kpy  (Kps  - Kp9) 
+ XCKp9  (Kpg  + Kpy  — 2 Kp9)  ) + { (Kpg  — Kp9)  (Kpy  — Kp9) 

[(1  + 2XC  + XO  + XN)  Kp9  - XCKpc,  ]J 
C3  « XCKP9  1 (Kp9+P)  [2XNKpg  + 2Kp7(XC+XO)  + Kp9  XC] 

+ (Kpg  + Kpy  - 2Kp9)  [(l  + 2XC  + XO  + XN)  Kp9  - XCKpc,  1 

- [ 2XN  Kpg  (Kpy  — Kp9)  + 2 (XC  + XO)  (Kpy)  (Kpg  — Kp9)] 

- (1  + 2XC  + XO  + XN)  (Kpg  - Kp9)  (Kpy  - Kp?) } 

C4  = XC^  Kp9  { (1  + 2XC  + XO  + XN)  Kp9  - XC  Kp9 

- 2 (XC  + XO)  Kpy  - 2XNKpg 

- (1  + 2XC  + XO  + XN)  (Kpg  + Kpy  - 2Kp9) } 

C5  = -Kp9  XC3(1 + 2XC+XO  + XN) 

5.  Zone  4 

Seven  major  species  are  considered  m Zone  4: 

X(N+),  X(C+),  X(Q+),  X(N++),  X{£++),  X{0++),  and  X(e"). 


-30- 
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a.  Major  Species  Reaction 
N+  + N++  + e” 

c+  + C++  + e- 

O4-  0++  + e" 


b.  Major  Species  Conservation  Equations 
X(N+)  = 2XN  — X(N++) 

X(C +)  = XC  - X(C++) 

X(0+)  = 2X0  + 2XC  - X(0++) 


X(e“  ) = 1 + XN  + XO  + 2XC  + X(C++) 

+ x(o++)  + x(n++) 


c.  Equilibrium  Constants  for  Major  Species 


KP10 


X(C++)X(e~)  P 
X(C+)Z 


X(N++)  X(e~)  P 
X(N+)Z 


X(0++)  X(e“)  p 
X(O^Z 


Total  mole  s : 

Z = 1 + XN  + 2XC  + XO  + X(e“) 


(40) 

(41) 

(42) 

(43) 


(44) 

(45) 

(46) 


(47) 


J08< 
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d.  General  Solution 


XCOfn-)  polynomial 

5 

C1[X(0H')]  5-1  = 0 (48) 

1=  1 

Cl  = (Kpi2  + P)  (Kpio  - Kpx2^KPll  ~ kP12^ 

C2  = (^pi2  ■**  P)  ( Kpi2  2 (XC  + X$b)  [ Kpio  + Kpn  — 2KpX2] 

+ XC  KpiQ  (Kpn  — Kpi2)  + 2XNKpn  (KpiQ  — Kpi2)} 

+ (KP10  “ KP12>  (KP11  “ KP12H  1 + 5XC  + 3 (X  O + XN)KpX2 
+ [2  (XN  + XO  )+  3XC]  P - Kpi2  2 (XC  + XO)} 
c3  = Kpi2  2 (XC  + XD)  {{(Kpi2  + P)  [ Kpl2  2 (XC  + XD)  + XCKpi0  + 2XNKpn] 

+ (KP10  Kpn  - 2Kpi2)  1 [1  + 5XC+ 3(XO+ XN)]  Kp12 
+ [2  (XN  + XO)'+  3XC]  P - 2Kpi2  (XC  + XO)  } 

- [l  + 5XC  + 3 (XO  + XN)]  (Kpi0  - Kpi2)  (Kpn  - Kpi2) 

- [XC  XpjQ  (Kpn  — KpX2)  + 2XNKpu  (Kpi0  — Kpi2)]}} 

C4  * [2Kpi2  (XC  + XO)]  2 Ul  + 5XC  + 3 (XO  + XN)  ] Kpi2 

+ [2(XN  + XO)  + 3XC  ] P - Kpi2  2 (XC  + XO) 

- XCKpi0  - 2XN Kpn  - [l  + 5XC  + 3(XO  + XN)  ] . 

[KpiQ  + Kpn  - 2Kpi2]] 

C5  = - [1  + 5XC  + 3 (XO  + XN)]  [Kpi2  2 (XC  + XO)]  3 
6.  Equations  Defining  the  Radiation  Heating 
a.  Basic  Equations 
QR  = Ta  T4 
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(49) 


RE-ORDER  fia  ^-■+'7 


where, 

o ~ Stefan- Boltzmann  constant 
7=  X-2E3(2ri) 


(50) 


\ - 15.24  — (DELTA) 


(51) 


E3(r) 


5 ds  . 


(52) 


The  tabular  values  of  c (r)  given  in  Table  I are  used  m the  computer 
program. 

b.  Emissxvities 


The  emissivities  are  taken  to  have  the  form: 
* N:  -Tj/T 


T ' c‘ 


5.4  x 1019  (Tx  IQ”4)01 


(53) 


where, 

N; 


(RHO)  (M) 

' 2116 


1019] 


(89516) (273.16) 


(54) 


The  values  of  CA  , Tj  , 
given  in  Reference  1, 


P 


PaV 


2 


2116 


and  ni  for  the  corresponding  species  X:  are 
Table  1-20. 


(55) 


MCp 

— « 3.5  XN  + 3.5  XO  + 4.0  XC  + 2.5  XA 


(56) 


(57) 
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IBM  ROUTINES 


A.  PROGRAM  FLOW 

A diagram  depicting  the  flow  of  information  within  the  program  is  shown 
in  Figure 


Figure  6 FLOW  DIAGRAM  FOR  PROGRAM  1S83 


B.  MAIN  PROGRAM 

The  purpose  of  the  main  program  is  to  define  tables  used  with  output  from  the 
calculation,  to  acquire  program  input  and  provide  output.  The  main  program 
defines  tables  of  Hollerith  words  (ZNAM1  and  ZNAM2)  which  appear  in  the 
output  of  Program  1883.  ZNAM1  contains  the  array  of  specie  names  in  the 
same  order  as  their  concentrations  are  stored  in  the  array  X,  and  the  table 
3NAM2  contains  the  names  of  the  radiation  heating  sources  as  they  are 
arrayed  in  the  table  QI.  The  arrays  ZNAM1  and  ZNAM2  should  be  referred 
to  for  any  changes  on  the  computation  of  an  individual  specie  or  radiation 
component.  / 

There  are  eleven  tables  of  temperature  and  enthalpy  which,  with  a pressure 
table,  are  used  to  define  the  zone^  in  which  a solution  is  computed.  The 
selection  of  the  proper  set  of  tables  from  the  11  possibilities  is  determined 
by  the  value  of  the  quantity  NX.  Each  of  the  II  tables'is  based  on  a specific 
composition  of  03,  N , A,  and  CO 2 in  the  undissociated  mixture,  and  the  main 
program  selects  NX  by  choosing  the  table  whose  sum  of  mole  fractions  of 
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and  CO 2 is  closest  to  the  input  sum  XO  and  XC.  The  array  TBSUM  contains 
the  sum  O2  + CO 2 for  each  of  the  11  tables. 

All  input  variables  are  read  m through  the  namelist  array  INPUT. 

Subroutine  HEAT1,  called  after  Statement  2001,  begins  all  of  the  significant 
calculations  done  by  the  program.  When  control  is  passed  back  to  the  mam 
program,  the  only  remaining  task  is  to  provide  the  program  output,  all  of 
which  is"contamed  in  the  calling  sequence  of  HEAT1,  save  for  the  effective 
emissivities  written  out  by  Subroutine  GETN1. 

C.  SUBROUTINES 

!.  HEAT  1 


a.  Purpose 

HEAT1  defines  the  heats  of  formation  of  each  specie  m the  equilibrium 
mixture,  provides  data  for  the  computation  of  the  detachment  distance 
if  this  quantity  is  not  specified  as  input  and  defines  the  zone  on  which 
the  equilibrium  solution  will  be  found.  Moreover,  it  controls  the 
temperature  iteration  which  computes  an  equilibrium  mixture  of  some 
known  pressure  and  enthalpy  at  the  stagnation  point,  and  obtains  total 
radiation  heating  and  individual  radiation  components. 

b.  Method 

The  major  function  of  subroutine  HEAT1  is  to  control  the  iteration 
m Ts,  this  stagnation  temperature  being  such  that  the  equilibrium 
mixture  has  pressure  (P)  and  an  enthalpy  (HRT)  whose  relative  error 
to  the  known  stagnation  enthalpy  (HRTZ)  is  less  than  some  number 
(PCNT). 

HEAT1  first  defines  PCNT,  then  the  heats  of  formation  of  each  specie 
(the  array  E)  and  the  quantities  necessary  for  the  detachment  distance 
DELTA.  DELTA  is  computed  by  a two-dimensional  table  lookup, 
unless  it  is  specified  in  the  program  input  as  some  number  > 0.  The 
lookup  has,  as  independent  variables,  the  inverse  density  ratio  which 
appears  in  the  output  (RHQ5S/RH0),  and  the  geometry  parameter  b/a 
(see  Reference  1);  The  corresponding  tables  are  called  RKTBL  and 
BATBL.  The  two-dimensional  dependent  variable  table  of  detachment 
distance  is  called  DELTBL. 
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HEAT1  then  calls  subroutine  HVST1  which  provides  a set  of  tables  -- 
T1TBL,  T2TBL,  T3TEL,  H1TBL,  H2TBL,  and  H3TBL.  This  set  is 
selected  from  11  possible  sets,  and  depends  on  the  value  of  NX  and 
thus  on  the  02  and  CO2  concentrations  of  the  ambient  mixture.  These 
temperature  and  enthalpy  tables  are  used  with  a pressure  table  (PTBL) 
to  define  the  upper  boundaries  of  the  zone,  in  which  a solution  will  be 
found,  T 1TB L being  Zone  1,  T2TB L being  Zone  2,  and  so  forth 

After  calling  HYST1,  subroutine  HEAT1  defines  the  pressure  (P)  and 
enthalpy  (HRTZ)  at  the  stagnation  point.  If  the  pressure  is  lower 
(higher)  than  the  lowest  (highest)  value  in  the  array  PTBL,  it  is  set 
equal  to  the  lowest  (highest)  value  (Statements  11  to  14). 

Subroutine  FINDT1  provides  a first  guess  for  temperature,  the  number 
of  the  zone  for  the  solution  (NUM),  and  upper  and  lower  bounds  in 
temperature  and  enthalpy  from  the  proper  zone  tables  (T1TBL),  and 
‘so  forth  Statements  1007  to  1009  test  to  be  certain  that  no  argon 
will  be  calculated  in  Zones  3 or  4,  where  argon  species  are  not  com- 
puted. If  argon  is  present  m Zones  3 or  4,  no  solution  is  provided 
(GO  TO  999).  Between  Statements  1010  and  106  successive  values  of 
the  temperature  are  computed  by  redefining  the  bounds  m temperature 
and  enthalpy  (TUP,  TLC/W',  HUP,  and  HLjD'W)  and  interpolating 
linearly  to  the  value  T which,  with  P,  would  give  (for  a linear  varia- 
tion) an  enthalpy  HRT=HRTZ.  For  each  iteration  subroutine  FINDH1 
is  called;  this  routine  solves  the  equation  of  state  of  the  equilibrium 
mixture  at  the  pressure  P and  approximate  temperature  T.  In  addi- 
tion to  specie  concentration,  the  enthalpy  HRT  is  computed  and 
compared  to  HRTZ.  If  it  is  close  enough,  the  iterative  procedure  is 
terminated  (Statement  106);  if  not,  TUP  and  HUP  or  TL0W  and  HL0W 
are  recalculated,  and  a new  temperature  is  interpolated.  If  no  ade- 
quate solution  is  found  within  30  iterations,  this  fact  is  noted  in  the 
output  and  the  last  value  of  temperature  is  used  to  provide  the  solu- 
tion. Experience  indicates  that  a failure  to  converge  occurs  close  to 
the  boundary  of  a zone,  and  generally  whe  re  the  total  radiation  heating 
is  small. 

Statement  106  deletes  the  computation  of  the  radiation  for  velocities 
lower  than  8000  ft/sec.  Statements  116  and  107  define  the  "trace" 
specie  N in  Zone  4.  If  a positive  detachment  distance  has  not  been 
provided  as  program  input,  Statements  503  to  not  including,  504  compute 
the  density  ratio  pj  Ps  > and  a/b  a^d  compute  the  detachment  distance 
from  a two-dimensional  table  lookup  performed  by  AR2  TLU  (see  de- 
scription of  AR2TLU). 
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If  the  species  0+,  N+,  C+,  and  E~  are  present  m Zone  2,  in  which  zone 
they  are  treated  as  trace  species,  their  concentrations  are  entered  m 
the  regular  array  X of  specie  concentrations  from  the  trace  specie 
table  DUM  (Statements  504  toJ502). 

The  normalized  stagnation  density  is  computed,  and  this  with  the  list 
of  concentrations,  temperature,  and  detachment  distance  is  used  to 
compute  effective  emissivities,  radiation  components,  and  total  radia- 
tion in  Subroutine  GETN1. 

2.  HVST-1 


a.  Purpose 

Subroutine  HVST1  provides  subroutine  HEAT1  with  a set  of  six  tables- - 
T1TBL,  T2TBL,  T3TBL,  HlTBL,  H2TBL,  and  H3TBL- -which  are 
used  to  determine  zone  boundaries  and  to  obtain  a first  guess  for  the 
stagnation  temperature. 

b.  Method 

The  quantity  NX,  computed  by  the  main  program  as  the  index  of  that 
set  of  tables  which  most  closely  approximates  the  concentrations  of 
O2  and  CO  2*  is  used  m a computed  "go  to"  statement  at  the  beginning 
of  HVST1  to  select  the  appropriate  set  of  T1TBL,  T2TBL,  T3TBL, 
HlTBL,  H2TBL,  and  H3TBL. 

These  tables  are  the  same  as  m Reference  1 (pp.  59  to  69),  except 
that  for  the  first  nine  sets  of  tables  each  value  m the  enthalpy  tables 
is  modified  from  Reference  1 by  the  subtraction  of  a constant  times 
the  concentration  of  argon.  The  indices  1 through  7 correspond  to 
values  of  PTBL  in  HEAT1  with  indices  1 through  7. 

3.  FINPT1 


a.  Purpose 

Subroutine  FINDT1  provides  a first  guess  for  the  stagnation  temperature 
iteration,  upper  and  lower  bounds  for  the  stagnation  temperature  and 
enthalpy,  and  the  number  of  the  zone  in  which  the  solution  will  be  found. 

b.  Method 

The  quantities  HI  and  T1  are  first  found  by  table  lookups  using  the 
pressure  P and  the  independent  variable  table  PTBL.  If  the  HI  is  with- 
in a specified  percent  of  HRTZ,  then  the  zone  number  is  *1  and  the  first 
guess  T is  Tl.  If  the  HI  is  < HRTZ,  but  not  sufficiently  close,  the 
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zone  number  is  1,  enthalpy  bounds  are  HI  and  0,  temperature  bounds 
are  T1  and  0,  and  the  transfer  to  Statement  100  provides  a first  guess  T by 
linear  interpolation.  If  H1>HRTZ,  but  not  sufficiently  close,  then  the  next 
higher  zone  is  considered  and  an  H2  and  T2  obtained  by  table  lookup  from 
P and  the  array  PTBL.  Then  H2  is  compared  to  HRTZ  as  was  HI,  and  the 
process  is  carried  on  until  the  zone  containing  HRTZ,  .the  first  guess  tempera- 
ture, is  obtained  from  the  interpolation  at  Statement  100, 

4.  FINPH1 


a.  Purpose 

Subroutine  FINDH1  provides  the  HRT  for  each  of  the  temperature  itera- 
tions controlled  by  subroutine  HEAT1.  In  doing  so,  the  equation  of 
state  for  the  equilibrium  mixture  must  be  computed  at  the  pressure 
and  approximate  temperature  T.  Hence,  the  concentrations  of  each 
specie  and  total  values  of  mixture  are  also  computed. 

b.  Method 

Subroutine  FINDH1  first  obtains  the  logs  of  pertinent  partition 
functions  (QP)  and  their  partial  derivatives  (QPAR)  from  subroutine 
GETQ1.  Which  partition  functions  are  computed  depends  upon  the 
species  m which  zone  the  solution  lies.  The  symbol  QP  is  really  the 
log  of  the  partition  function  times  pressure,  and  hence  the  - In  P term 
in  the  equations  of  Reference  1,  page  54  is  not  included  m the  com- 
putations of  subroutine  GETQ1.  With  these  partition  functions,  the  rele- 
vant equilibrium  constants  for  the  .zone  are  computed  by  subroutine 
GETK1,  and  are  stored  m the  array  PK. 

The  arrays  of  specie  concentrations  are  then  cleared  to  zero  (X  and 
DUM)  and  subroutine  ZONES1  called.  If  a solution  is  found  in 
ZONES1,  the  X array  will  contain  some  nonzero  elements.  The  do- 
loop  ending  at  Statement  104  uses  the  heats  of  formation,  molar  con- 
centration, and  partial  derivative  of  the  partition  function  of  each  of 
the  first  16  species  to  compute  the  dissociation  enthalpy  and  total  en- 
thalpy (SUMD  and  SUMH,  respectively).  If  species  A and  A+  exist 
(XC18,  XC19)>  their  contributions  to  the  enthalpy  are  included  (the 
partial  derivatives  of  their  partitions  having  first  been  computed),  since 
these  have  not  been  previously  computed  in  GETQ1  (Statements  107  to  110), 
N2+  does  not  contribute  m this  model  to  the  enthalpy;  hence,  its  heat 
of  formation  is  not  stored  in  the  array  E,  and  for  this  reason  the  17th 
heat  of  formation  is  for  the  18th  specie  (A),  and  the  18th  heat  of  forma- 
tion is  for  the  19th  specie  (A+).  Having  computed  the  HRT  and  HDHS, 
the  subroutine  returns  control  to  subroutine  HEAT1. 
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5.  GETQl 


a.  Purpose 

Subroutine  GETQ1  provides  the  log  of  the  partition  functions  times 
pressure  and  their  partial  derivatives  with  respect  to  temperature  for 
those  species  which  are  included  in  the  relevent  zone. 

b.  Method 

The  evaluation  of  the  logs  of  the  partition  functions  times  pressure  (QP) 
and  their  partial  derivatives  (QPAR)  are  merely  algebraic  evaluations 
of  the  equations  of  Reference  1,  page  54.  Since  the  equations  of  ref- 
erence are  In  Q,  but  our  evaluation  is  for  In  QP,  the  -In  P term  of 
the  reference  is  not  included  in  the  GETQ1  calculations. 

If  the  solution  lies  in  Zone  1,  the  functions  evaluated  are  for  N2,  C02, 
CO,  02,  and  O (QP  and  QPAR  1 to  5,  respectively).  For  Zone  2,  the 
functions  are  evaluated  only  for  Nz»  CO,  O,  N,  CN,  NO,  and  C (QP  and 
QPAR  1,  3,  5,  6,  7,  8, and  9,  respectively).  For  Zone  3,  the  functions 
are  evaluated  for  O,  N,  C,  0+,  N+,  C+,  and  e~  (QP  and  QPAR  5,  6,  9, 

10,  11,  12,  and  13  respectively).  For  Zone  4,  the  functions  are  eval- 
uated for  N,  0+,  N+,  C+,  e-,  N++,  O++,  and  C++  (QP  and  QPAR  6,  10, 

11,  12,  13,  14,  15,  and  16,  respectively). 

6.  GETK1 


a.  Purpose 

Subroutine  GETK1  evaluates  appropriate  equilibrium  constants  given 
In  PQ  for  the  relevant  species. 

b.  Method 

The  equations  for  the  equilibrium  constants  are  given  in  Reference  1, 
page  48.  In  Zone  1,  the  constants  computed  are  for  the  reactions 
C02  -*-CO  4-  1/2  02  and  02  -►'20  (PK  1 and  2,  respectively).  For  Zone 
2,  the  reactions  are  N2  ■+-  2N,  C0-*-C+0,  C+N  +-CN,  and  N+O  -►  NO 
(PK  3,  4,  5,  and  6j  respectively).  In  Zone 3,  the  reactions  are  0 -► 
0++e“,  and  C ■*-  C re  (PK  7,  8,  and  9 respectively).  In  Zone  4,  the 
reactions  are  N->-N++e“,  C+-*-C+++e~,  N+->-N+++e-,  and  0++-  0+  +e” 
(PK  8,  10,  11,  and  12,  respectively). 
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7.  ZCflNESl 


a.  Purpose 

Subroutine  Z(#NES1  computes  the  concentrations  of  each  specie  of  the 
equilibrium  mixture  at  the  given  pressure  and  temperature  of  the  itera- 
tion controlled  by  subroutine  HEAT1. 

b.  Method 

Given  temperature,  pressure,  mole  fractions  of  O N^,  CO^,  and  A 
m the  undissociated  atmosphere,  along  with  the  zone  number  and  pertinent 
equilibrium  constants,  subroutine  ZC^NESl  will  compute  the  moles  of 
each  specie  in  the  equilibrium  mixture  at  the  stagnation  point, and  the 
total  moles  of  gas. 

The  method  of  solution  depends  on  finding  the  roots  of  a polynommal 
whose  argument  is  equal  (or  proportional)  to  one  of  the  important  species 
m the  equilibrium  mixture.  The  root  which  is  used  may  be  deter- 
mined by  physical  constraints  (e.  g.  it  must  be  real  and  positive).  If 
no  such  root  is  found,  "NO  VALID  SG^EU1’  is  printed  and  the  case  de- 
leted. Which  specie  is  solved  for  depends  upon  the  zone  m which  the 
solution  is  found.  The  coefficients  of  the  polynominal  are  functions  of 
the  mole  fractions  of  N2,  O^,  CO^,  and  A in  the  atmosphere,  and  the 
equilibrium  constants  of  the  reactions  assumed  to  be  important  m the 
zone.  The  important  reactions  thus  considered  for  equilibrium  con- 
stants are  those  (and  only  those)  computed  by  the  subroutine  GETK1. 

Where  trace  species  are  considered  (Zones2  and  3),  their  concentrations 
are  purely  ancillary  to  the  principal  reactions  considered,  and  the  parti- 
tion functions  and  equilibrium  constants  pertinent  to  these  trace  species 
are  computed  m subroutine  ZC/NES1,  not  in  subroutines  GETQ1  and  GETK1. 

In  Zone  1,  no  trace  species  are  present  and  the  species  considered  from 
principal  reactions  are  N^,  C02,  and  ^ react^ons  being 

CO^-^-COh  1/2  C>2»  and02~^20.  In  Zone  2,  the  species  considered  from 
principal  reactions  are  N , CO,  O,  N,  CN,  NO,  and  C,  the  reactions 
being  N — »-2N,  CO— KI+O,  C+N— KIN,  and  N+0-*-N0.  Trace  species 
considered  are  0+  N+,  C , e**,  and  A , which  come  from  reactions 

0—><J  +e~,  N-KN+e",  C-KI++e",  N2+-^N++N,  and  A^A++e".  The 
equilibrium  constants  and  necessary  partition  functions  for  these  last 
five  reactions  are  computed  at  the  beginning  of  the  subroutine  before 
Statement  100  (DLPQ5,  DLPQ6,  DL.PQ9,  DLPQ10,  and  DLPQll  are 
the  logs  of  the  partition  functions  times  pressure  for  O,  N,+C,  N+,  and 
N +;  DGK13  is  the  equilibrium  constant  for  the  reaction  N — »~N  +N),  and 
in  the  Zone  2 calculations  between  Statements  55  and  8512  (DLPQ12,  DLPQ13, 
DLPQ14,  DLPQ15,  DLPQ16  are  the  logs  of  the  partition  function  times 
pressure  0+,  e~,  C , A,  and  A+;+DGK7,  DGK8_,  DGK9,  DpKli  are  equilibrium 
constants  for  the  reactions  0—*-p  +e  , N— N +e  , C—^C  +e  , and  A — ►- 
A +e”).  In  Zone  3,  the  species  considered  from  principal  reactions  are  O,  N,  C, 
-40- 
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O*,  N+,  C+,  and  e~,  the  reactions  being  O 0++e“,  N-^-N^+e-,  and 
C-+-  C++e-.  Trace  species  are  CN,  NO,  and  N+  which  come  from  the 
reactions  C+N^CN,  N+O-^-NO,  N2+-*-  N*+N.  The  equilibrium  con- 
stants and  logs  of  the  necessary  partition  functions  times  pressure  are 
computed  at  the  beginning  of  the  subroutine  before  Statement  100 
(DGK13  is  the  equilibrium  constant  for  the  reaction  N2+-*-  N++N, 
DLPQ5,  DLPQ6,  DLPQ9,  DLFQ10,  andDLFQll  are  the  logs  of  the 
partition  function  times  pressure  for  O,  N,  C,  N+,  and  N2+).  In 
the  Zone  3 calculation  between  Statements  28  and  SllZ^DLPQ?  and 
DLPQ8  are  the  logs  of  the  partition  function  times  pressure  for  the 
species  CN  and  NO.  DGK5  and  DGK6  are  equilibrium  constants  for 
the  reactions  C-HNS  CN  and  N+O  ->-NO  v 

In  Zone  4 no  trace  species  are  present  and  the  species  considered  from 
principal  reactions  are  0+,  KT*",  C+,  e~,  N++,  0++,  and  C++  from  the 
reactions  N-^N+he-,  C+->-C'H'+e-,  N+^N+^  + e",  and  0+  -+■  0+++e-. 
8.  GETN1 


a.  Purpose 

Subroutine  GETN1  computes  the  effective  emissivities  of  each  com- 
ponent of  the  total  radiation  heating  and  from  them  computes  the  total 
radiation  heating  and  the  radiation  component  of  each  contributor. 

b.  Method 

Subroutine  GETN1  first  defines  the  tables  TAUTBL  and  EPSTBL, 
a tabulation  of  1-2E  (r  } (EPSTBL)  as  a function  of  the  independent 
variable  T (TAUTBL).  Next  the  table  of  emissivities  EL  is  cleared 
to  zero,  and  then  the  concentration  of  ea^h  specie  in  the  equilibrium 
mixture  is  converted  to  particles  per  cm  (ZNI).  The  DO  LOOP 
ending’ on  Statement  199  then  computes  the  emissivities  of  each 
component  to  the  total  radiation  which  may  come  from  a positive  con- 
centration of  any  of  the  first  12  species  contained  in  the  array  X. 

These  emissivities  (EL.,  i = 1 to  21  correspond  to  the  radiation  contri- 
butors in  the  same  ordelr  as  the  Hollerith  names  in  the  table  ZNAM2 
of  the  main  program.  No  radiation^contribution  is  made  from  the 
species  X(13-l6)  (e~,  N +,  0++,  C ),  but  contributions  are  made  by 
X (17-19),  and  the  emissivities  for  these  species  are  computed  from 
Statement  213  to  218.  The  emissivity  formula  and  constants  used  to 
obtain  the  average  emissivity  of  the  gas  (EP  BAR)  may  be  found  in 
Reference  1,  page  102.  The  total  radiation  and  contribution  of  each 
component  is  then  computed  based  on  the  rand  q (DO  LOOP  ending 
on  301).  Output  is  provided,  which  includes  the  e * €i  * and  A- 

3i8< 
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CALLING  SEQUENCE 


Variable 

Name 

V,  Velocity 

RHO,  density 

XN,  N2  mole 
fraction 

XO,  Og  mole 
fraction 

XC,  COj  mole 
fraction 

HEATl 

Input  Or  Output 
of  subroutine 

Input 

Input 

Input 

Input 

Input 

Source 

Program 

Input 

Program 

Input 

Program 

Input 

Program 

Input 

Program 

Input 

XA,  A mole 
fraction 

NX,  enthalpy 
table  no. 

P,  pressure 

THN,  nose 

angle 

RN,  Rn>  nose 
radius 

RS,  Rs,  shouldei 
radius 

RC,  R^,  cone 
radius 

Input 

Input 

Output 

Input 

Input 

Input 

Input 

Program 

Input 

Mam 

Program 

HEATl 

Program 

Input 

Program 

Input 

Program 

Input 

Program 

Input 

T.  temperature 

Z,  moles  of 
mixture 

RH0ST,  Ps  /pa 
density  ratio 

QSUM,  Qr 
radiation  heating 

Ql,  radiation 
by  specie 

X,  specie 
concentration 

HDHS,  dissociation 
energy  ^ enthalpy 

Output 

Output 

Output 

Output 

Output 

Output 

Output 

HEATl 

Z0NES1 

HEATl 

GETN1 

j GETN1 

ZONES  1 

FINDH1 

HRT,  HM/RTo, 
total  enthalpy 

DEL,  detach-  : 
ment  distance 

DUM,  concentra- 
tion ofO+N+  C+,  e* 

TDMF,  ambient 
temperature 

Output 

Input 

Output 

Input 

FINDHl 

Program 

Input 

ZONES  1 

Program 

Input 

Variable 

NX,  atmos.  table 
number 

T1TBL  Zone  1 
temp  table 

T2TBL  Zone  2 
temp,  table 

T3TBL  Zone  3 
temp,  table 

H1TBL  Zone  1 
enthalpy  table 

HVSTl 

Input  Or  Output 
of  subroutine 

Input 

Output 

Output 

Output 

Output 

Source 

Main 

HVSTl 

HVSTl 

HVSTl 

HVSTl 

H2TBL  Zone  2 
enthalpy  table 

H3TBL  Zone  3 
enthalpy  table 

XA,  mole  fraction 
of  A 

Output 

Output 

Input 

HVSTl 

HVSTl 

Program 

Input 

-3JL9* 
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FINDT1 

Variable 

Input  or  Output 
for  subroutine 

Source 

P,  pressure 
Input 
HEAT1 

HRTZ,  stagnation 
enthalpy 

Input 

HEAT1 

PTBL,  pressure  table 
(used  with  T&H  tables) 

Input 

HEAT1 

TITBL-Zone  1 

T2TBL-Zone  2 

T3TBL-Zone  3 

H1TBL,  Zone  1 

H2TBL-Zone  2 

temp  table 

temp  table 

temp,  table 

enthalpy  table 

enthalpy  table 

(used  with  PTBL  St 

(used  with  PTBL  S. 

(used  with  PTBL  & 

(used  with  PTBL  & 

(used  with  PTBL  & 

H1TBL) 

H2TBL) 

H3TBL) 

T1TBL) 

• T2TBL) 

Input 

Input 

Input 

Input 

Input 

HVST1 

HVST1 

HVST1 

HVST1 

HVST1 

H3TBL  Zone  3 

TUP-Highest  tamp*  for 

TL0W- Lowest  temp,  for 

HUP- Highest  enthalpy 

HL0W- Lowest  enthalpy 

enthalpy  table 

1st  enthalpy  iteration 

1st  enthalpy  iteration 

for  1 st  enthalpy  iter  ation 

for  1st  enthalpy  iter  ation 

. (used  with  PTBL  S. 

j 

T3TBL) 

Input 

Output 

Output 

Output 

Output 

HVST1 

FINDTI 

FINDT1 

FINDTI 

FINDT1 

T-first  guess  for 

NUM-Zone  number  for 

PCNT-percent  error 

m enthalpy  iteration 

enthalpy  iteration 

acceptable  m enthalpy 

Output 

Output 

Input 

FINDT1 

FINDTI 

HEAT1 

Variable 

NUM,  Zone  Number 

P,  pressure 

T,  temperature  for 
current  enthalpy 
iteration 

FINCH  1 

Input  or  Output 
for  Subroutine 

Input 

Input 

Input 

Source 

HVST1 

HEAT1 

HEAT1 

E,  Heats  of  formation 
at  0®K 

PK,  equilibrium 
constants 

XO,  mole  fraction 
of  C>2  lr;  atmosphere 

XC,  mole  fraction 
of  COj*  in  atmosphere 

XN,  mole  fraction 
of  N2  m atmosphere 

Input 

Output 

Input 

Input 

Input 

HEAT1 

GETK1 

Program 

Program 

Input 

Program 

Input 

XA,  mole  fraction 
of  A in  atmosphere 

Z,  total  moles  of 
equilibrium  mixture 

X,  specie  moles  in 
equilibrium  mixture 

HRT,  enthalpy  at  T and  p1 
( HRTZ  for  last  iteration) 

HDHS,  dissociation 
energy*  enthalpy 

Input 

Output 

Output 

Output 

Output 

Program  Input 

Z0NES1 

Z0NES1 

FINDH1 

FINCH  1 

DUM- moles  of  0+  N+,  C* 
and  e”  in  Zone  2 

Output 

ZONES  1 

3 39* 
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Variable 

NZZ,  Zone 
number 

TZ.temp.  at  current 
enthalpy  iteration 

ZLPQ,  log  of 
partition  functions 

QFAR-  derivatives 
of  QPat  constantP 

Input  or  Output 
for  Subroutine 

Input 

Input 

Output 

Output 

Source 

Main 

HEAT1 

GETQ1 

GETQ1 

Variable 

NZ,  Zone 
number 

TZ-temp  at  current 
enthalpy  iteration 

ZLPQ,  log  of 
partition  functions 

PK;  Equilibrium 
constants 

Input  or  Output 
for  Subroutine 

Input 

Input 

Input 

Output 

Source 

Main 

HEAT1 

GETQ1 

GETK1 

Input  or  Output 
for  Subroutine 


NUM,  Zone 
number 


ZT-temp  at  current  XQz  mole  fraction  XCZ  mole  fraction 
enthalpy  iteration  of  O2  in  atmosphere  of  CO2  in  atmospher 


PZ,  pressure  PK,  equilibrium  ZZ total  moles  of  XX  specie  moles  in 

constants  equilibrium -mixture  equilibrium  mixture 


RH0S,  normalized 

DEL,  shock 

stagnation  density 

detachment  distance 

Input 

Input 

HEAT1 

Program  Input  or 

from  Correlation  in 

HEAT1 

D.  SIGNIFICANT  EQUATIONS 


Mam  Program  None 
1.  HEAT1 


M =2M  = 28  XN  + 32  XO  + 44  XC  + 40  XA  Molecular  weight  of  cold  gas 

Cp/R  = CP(j>HL~  (3  5 (XN  + XO)  + 4 XC  + 2.5  XA)/ZM  Specific  heat  of  cold  gas/R 


H/RT0  = HRTZ  = 


778  * 


_V^ 

1 987  - 45 3 3'  273.16 
252  ZM 


) 


stagnation 
point  enthalpy 


P = P = (RH0  V2)/2116. 


stagnation  point  pressure 


The  above  are  computed  prior  to  the  execution  of  the  IF  test  before  State- 
ment 11. 


If  A is  not  specified  as  program  input,  the  following  quantities  are  computed 
(Statements  503  to  604) 


b/a  = BA 


Ps/Pa  = V' 


_ 

= |_RC 

/[■ 


(1  - cos(THN))  + 
89516 


RS  1 / FrN 

-».(tw]/L— 


ZM 


-] 


RS 

sm(THN)  t* (1  - sin  (THN)) 

RC  J 

Geometry  parameter 


Density  ratio 


‘ A « DEL  A [RN  sin  (THN)  + RS  (1  —sin  (THN))]  Detachment  distance 
The  radiation  depends  upon  the  normalized  stagnation  density 

. P 273  16 
p=  RH0S  = — — 

HVST1  - Trivial  modifications  of  Reference  1,  pp.  59-69. 

2*  FINDT1  r 

Linear  interpolations  to  find  a first  guess  for  the  stagnation  temperature, 
the  zone  number,  and  the  ranges  of  enthalpy  and  temperature  for  the  stag- 
nation temperature  iteration. 
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3.  FIND  HI 


HjM  t2 

= HI,  . = E...  + QPAR^.i  — Enthalpy  of  i1*1  specie  (reference  1,  p.  58) 

RT  W W 273.16  w 


X(l)  * HI(i)  — Enthalpy  at  P and  approximate  stag,  temperature  T 
= SUMD  s=  X(i)  E(i)  — Dissociation  enthalpy 

4.  GETQl  i 


This  subroutine  evaluates  In  PQ  (X-)  , pressure  times  the  log  of  the  parti- 

tion and  the  partial  derivative  of  the  partition  function  with  respect  to 
temperature  for  some  set  of  species  dependent  on  the  zone  numbers, 

SdlnQ\ 

The  correspondence  between  QPAR(i)=  { 1 and  ZLPQ(i)=  In  (PQ.) 

WT  £ 

is  explained  on  the  description  of  GETQ,  the  ZEPQ(i)  are  contained  in  the 
set  of  functions  documented  in  Reference  1,  p..54,  and  the  derivatives  are 
obtainable  by  inspection, 

5.  GETK1 

The  subroutine  evaluates  equilibrium  constants  for  the  principal  reactions 
assumed  to  exist  in  the  appropriate  zone.  The  equations  are  in  Reference  1, 
p,  48. 

6.  Z(#NES1 

The  partition  functions,  their  derivatives,  and  equilibrium  constants 
computed  in  Z#)NES  are  explained  in  the  subroutine  description  and  docu- 
mented m Reference  1 (p,  48  and  54). 


The  Zone  1 equations  are  solved  between  Statements  100  and  200.  The  specie 
concentrations  are  computed  by  finding  on  the  appropriate  root  of  a poly- 
nomial. 


f(Sj)  = y ^ (c^ed(i)2  [4  x) 

i=  I 


Real  and  imaginary  roots  are  computed  by  the  library  subroutine  POEROT 
(see  subroutine  description  ).  The  ,,appropriate,t  root  must  be  real,  positive, 
and  such  that  no  negative  specie  concentrations  result.  If  no  such  root  is 
found,  the  message  "N0  VAEID  S(^LN"  is  written  in  the  output  and  the 
case  deleted.  The  equations  for  the  specie  concentrations  are  as  follows: 
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si  / r pki  i 

S2-S1XD  + T/[2^=(XC-Sl)  + X1J 

X(N2)  = X(l)  = XN 
X(C02)  = X (2)  at  XC  — 2 2 
X(CO)  = X(3)  = 

x (o2)  = X (4)  = xo  +—  -22 
X (O)  = X (5)  = 2X2 


In  Zone  2,  the  computations  are  done  between  Statements  200  and  300. 
First  FQ5LR0T  is  used  to  find  the  roots  of  the  polynomial 

5 

(G6)  = COED  (i)  2^  ~l) 

i * 1 

roots  are  computed  for  the  polynomial 
4 

S coed  a>  s(74~i) 

6 = l 

As  in  Zone  1,  the  root  used  must  be  real,  positive,  and  such  that  no  nega- 
tive concentrations  are  permitted.  The  principal  species  are  as  follows: 

24  = (4  2^  P/(PK3  (XN  - S6))  - 1 - XC  - XO  - 26 
(2 4 + XC  + 2X0)  PK6 

2d  = 

C&4  — X7)  PK^  + 2yPK^ 


Then  the 
fff7) 


X (N2)  = X (1)  = XN  - 26 

X(CO)  = X (3)  = xc-X4 

X(o)  = X (5)  = 24  + 2 X0  + XC-28 
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X (N)  = X (6)  = 2I6-28-27 


X (CN)  = X (7)  = 27 
V (NO)  = V (8)  = S8 
X(C)  = X(9)  = 24-27 

Z = 1 + XC  + XO  + 1A  + S6  - 2y  - 2g 
For  trace  species, 

(2  X(N)2KP8 

X(e~ ) = X (13)  = DUM  (2)  = (X(0)  PK?  + X(N)  * PKg  + X(C)  - PKJ4)  + — 

( P KP13 

X(N+)  = X (11)  = DUM(l)  = KPg 


_Z  X(N)  ) 
P X(e")j 


X(G+) 


X(10) 


DOM(3)  = KPy 


X(O)  | 

X(e')j 


X (C+)  = X(12)  = 
X(N2+)  = X(17)  = 


DUM (4)  = K Pp 

KPgX(N)2 
KP13  X(e~ ) 


(£  X(C)  j 
/ P X(e~)  \ 


X(A)  = X(18)  = XA 


X(A+)  = X(19)  = K P14 


XA  / 
X(e“)  \ 


In  Zone 3,  the  calculations  are  done  between  Statements  300  and  400. 
POLROT  is  used  to  fine  the  roots  of  a polynomial 


F^)  = 


(5-  x ) 

COED(i)  2n 

i - 1 


The  root  used  must  be  real,  positive,  and  such  that  there  are  no  negative 
concentrations.  The  specie  equations  are  as  follows: 
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ESB ft. 


2 2U(XC  + XO)PK7 
10  ; lx  c . pk9  + sn  (PK7  - pk9)] 
2 . 2n  . XN  . PKg 
9 [XC  . PK9  + Xn  (PK8  - PK9)] 


X(0)  = 

X(5)  - 

2 (XC  + X0)  ~ 

X(N)  = 

X(6)  = 

2 XN-X? 

x(Q  = 

X(9)  = 

XC  -£n 

XCO) 

= X(10) 

= S10 

X(N+) 

= X(ll) 

X(C+) 

= X{12) 

= S11 

X(0  = 

= X(13) 

= S9  + 210  + 2U 

2=1  + 2 XC  + XO  + XN  +2^  + 2n 
For  trace  species, 

p-pk5 

X(CN)  = X(7)  = — — (2  XN  -S9)  (XC  ~2U) 

' P . pk6 

X(NO)  = X(8)  = — — ( 2 XN  -S9)  ( 2 XO  + 2 XC  — 2l0 ) 


X(N2+)  = X(i7) 


29(2XN-29)P 


In  Zone  4,  the  calculations  are  done  between  Statements  400  and  900. 
POLROT  is  used  to  find  the  roots  of  a polynomial 


5 

f^12)  = COED(i)  212(E~i) 

1«1 
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32*6< 


o 1 


ffi-osa  &. 


The  root  used  must  be  real,  positive,  and  such  that  there  are  no  negative 
concentrations.  The  equations  for  the  concentrations  are: 

2 12  * XC  • PK10 

£ __  — 

13  [ 2 • PK12  (XC  + XO)  + 212(PK10  - PK12>] 

2 * 2^2  * XN  PKn 

14  = [2  • xo12  (xc  + xo)  +S12(pk11-pk12)] 

X(o+)  = X(10)  = 2(XC  + XO)  - Xi2 

X(N+)  = X(ll)  = 2 XN  -214 


X(C+)  = X(12)  = XC  -x13 

X(e“)  = X(13)  ==  2 (XN  + XO)  + 3 • XC  + X12  + S13  + Xi4 
X(N++)  = X(14)  =S14 

XCo*^)  = X(15)  = X12 


X(C+*)  = X(l6)  = X13 


One  trace  specie  is  considered. 


X(N)  = X(6) 


X(N+)  • X (e~)  • F 
Z • PKg 


This  specie  is  unique  m that  it  is  computed  m subroutine  HEAT. 
7.  GETN1 


ZNI;  *=  X;  • RHOS  • 2.69  x 1019  1=1,  19 


Specie  concentration  to  particles 
per  cm3 


ZNI* 

5.4  xlO19 


1 

(T  x 10” 4jni 


-Tj/T 


i*  1,  21 


Emissivities  without  self-absorption 
correction.  and  Tj  from 

Reference  1,  p 102 


- 1/2  A 


Argument  of  E^q)  for  effective 
emissivities 
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f.  = TAUTP 


r = TSUM  = 

*i  = EPS(i) 
e = EPBAR 

q,  « QKO  = 

Q = QSUM  = 


Argument  of  E 3(7)  for  total  effective 
emissivity. 


i=  l,  21 


Value  of  (1  — 2E^(r1)),  effective 
emissivities 


0.174  x 10-8  (1.8  x T)4 


3600 


EPS(i),i=  1,21 


Value  of  ( 1 - 2E^(r)),  total 
effective  eraissivisty 

Component  radiation  heating 


EPBAR 


0.174  x IQ"8  (1.8  x T)4 

3600 


Total  radiation  heating 


Q< 
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I.  INTRODUCTION 


A.  GENERAL  DESCRIPTION 

The  purpose  of  this  program  is  to  determine  the  heat  shield  thickness  and  weight 
requirements  to  protect  the  heat  shield  substructure  from  exceeding  a specified 
temperature  limit  at  any  time  during  the  entry  trajectory.  The  general  inputs 
include: 

1.  Convective  heat  rates  as  a function  of  time  m tabular  form  and  an  in- 
dication if,  and  when,  turbulent  flow  occurs 

2.  Radiation  heat  rates  as  a function  of  time  m tabular  form 

3.  Supporting  heat  transfer  data  as  the  stagnation  enthalpy  variation  with 
time,  atmospheric  composition,  and  heat  pulse  scaling  factors 

4.  Heat  shield  material  properties,  including  the  density,  conductivity, 
specific  heat,  emissivity,  ablation  temperature,  heat  of  vaporization,  and 
convective  blocking  factor 

5.  Design  constraints  as  the  maximum  allowable  substructure  temperature, 
the  total  entry  time  during  which  the  substructure  must  be  protected,  the 
substructure  thermal  capacitance,  and  bond  thickness  and  thermal  proper- 
ties. 

The  calculation  model  simulates  a one -dimensional,  heat- conduction  problem 
into  a slab  of  finite  thickness,  subject  to  various  thermal  boundary  conditions  as 
depicted  in  Figure  1. 


Figure  1 HEAT  SHIELD  CALCULATION  MODEL 
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The  primary  output  is  the  heat  shield  unit  area  weight  (lb/ft2)  required  to  satisfy 
the  design  constraints.  If  ablation  occurs,  the  relative  proportions  of  ablative 
and  msulative  weights  are  indicated  also. 

B.  CALCULATION  MODEL 

The  calculation  model  is  described  in  detail  m References  1 and  2;  hence  only  a 
brief  summary  is  given  here.  The  approach  utilized  considers  that  aerodynamic 
heating  data  are  available  based  on  a cold  wall  consideration  {i.  e.the  heating 
calculations  are  developed  without  a knowledge  of  the  wall  temperature  history 

Hw 

with  time,  and  the  assumption  is  made  that  ' <<l).  Hence,  the  convective 

^ Hw 

heating  inputs  must  be  corrected  for  the  hot  wall  reduction,  (l  - ),  as  the 

wall  temperature  history  is  computed.  Hs 

To  arrive  at  a rapid  method  suitable  for  parametric  studies,  an  approximate 
calculation  model  which  permits  a direct  solution  for  the  unit  area  heat  shield 
weight  is  utilized.  The  approximate  model  replaces  the  actual  heating  history 
with  an  equivalent  one  having  the  same  total  integrated  heating,  but  also  having 
a constant  surface  temperature.  The  solution  for  the  time  wise  variation  of  the 
temperature  distribution  in  a finite  slab  with  constant  surface  temperature,  and 
hence  the  solution  to  the  equivalent  simulation  model,  is  well  known  and  the 
solution  is  given  m Reference  3 

As  shown  in  Figure  1,  the  calculation  model  allows  for  the  inclusion  of  a bond  and 
substructure  and  a composite  heat  shield  material  and  considers  the  effects  of 
laminar  or  turbulent  heating,  radiative  heating,  r eradiation,  the  hot  wall  re- 
duction, and  convective  heating  blockage  due  to  ablation. 

In  order  to  apply  the  approximate  method,  a number  of  detailed  assumptions 
regarding  the  nature  of  the  heat  pulse  were  made.  Key  features  of  the  cal- 
culation model  are  summarized  below. 

1.  Initial  Time  (TI) 

The  heating  data  input  to  the  program ’is  usually  based  on  the  flight  time 
history  during  the  entry  flight.  For  the  simulated  calculation  model,  an 
effective  initial  time  is  defined  such  that  the  portion  of  the  heat  pulse  up  to 
the  combined  peak  heating  rate  (i.  e.  add  the  convective  and  radiative  pulse 
and  determine  the  time  for  their  peak)  is  triangular,  and  the  integrated 
cold  wall  heating  is  identical  with  the  actual  data.  The  location  of  the 
initial  time  (TI)  is  shown  in  Figures  2 and  3 for  nonablating  and  ablating 
cases,  respectively. 
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QT8L 

HTBL 

RTBL 

HADJ 

TX 

Tool 

TSTOP 


COLD  WALL  CONVECTIVE  HEATING 
DIMENSIONLESS  STAGNATION  ENTHALPY 
RADIATIVE  HEATING 
AVERAGE  STAGNATION  ENTHALPY 
INITIAL  TIME  OF  CONSTANT 
TEMPERATURE  PROBLEM 
TIME  WHEN  OTBL  = 0 01  QTBL  max 
TIME  TO  END  OF  THERMAL  PROBLEM 


Figure  2 NONABLATfNG  HEAT  SHIELD  CALCULATION  MODEL 


OTBL  COLD  WALL  CONVECTIVE  HEATING 
HTBL  DIMENSIONLESS  STAGNATION  ENTHALPY 
RTBL  RADIATIVE  HEATING 

TI  INITIAL  TIME  OF  CONSTANT  TEMPERATURE  PROBLEM 

TAOJ  START  TIME  OF  INSULATION  PROBLEM  AFTER  END  OF  ABLATION 

HADJ  AVERAGE  STAGNATION  ENTHALPY 

Tool  TIME  WHEN  QTBL=OOI  QTBLmax 

TSTOP  TIME  AT  END  OF  THERMAL  PROBLEM 


Figure  3 ABLATING  HEAT  SHIELD  CALCULATION  MODEL 
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Z,  Final  Time  (Actual  TSTJ&F) 


The  final  time  of  the  simulation  model  is  dependent  on  a number  of  program 
test  criteria.  The  input  value  of  TST0P  reflects  the  trajectory  flight  time 
and  also  the  post-flight  time  during  which  the  substructure  must  be  thermally 
protected  by  the  heat  shield.  The  input  TST0P  is  therefore  a test  criterion 
for  the  actual  TST0P.  The  linearization  of  the  calculation  model  by  utilizing 
an  average  stagnation  enthalpy  for  the  nonablating  cases,  and  when  obtaining 
the  insulative  requirements  of  the  heat  shield  during  the  post-ablation  period, 
depends  on  the  actual  TST0P.  Experience  has  shown  that  the  actual  TST0P 
should  be  limited  to  less  than  twice  the  length  of  the  heat  pulse  (the  length 
of  the  heat  pulse  being  defined  as  the  time  from  TSTART  to  the  point  where 
the  convective  heating  is  1 percent  of  the  maximum  value).  The  above  two 
criteria  are  compared  and  the  smaller  value  used  for  the  actual  TST£)P. 

In  addition  to  the  criteria  above,  program  tests  are  performed  in  the  case 
of  nonablating  slabs  that  reduce  TST(t>F  if  the  slab  equilibrates  at  a time 
smaller  than  the  TST0P,  in  which  case  the  actual  TST0P  is  taken  as  the 
time  to  equilibrate  (i.  e.  for  this  case,  the  slab  temperature  reaches  a 
peak,  which  is  equal  to  TREAR  at  the  actual  TST£>P). 

3.  Ablation  Model 

The  steady-state  ablation  model  is  used  to  estimate  the  mass  loss  and  heat 
stored  in  the  heat  shield  during  ablation.  A discussion  of  this  approach  is 
given  in  Reference  1.  The  calculation  model  provides  for  blockage  of  the 
convective  heating  only,  during  ablation  as  a result  of  either  radiative 
or  convective  heating. 


Wall  Fnthalp 


The  wall  enthalpy  is  required  to  correct  the  cold  wall  convective  heating. 
Tables  are  built  into  the  program,  which  automatically  evaluate  the  wall 
enthalpy  as  a function  of  temperature  based  on  the  atmosphere  composition 
which  is  input. 


Material  Properties 


The  material  properties  input  are  taken  as  average  values  commensurate 
with  the  range  of  heating  and  enthalpy  levels  expected  in  the  problem.  A 
special  consideration  has  been  given  to  the  calculations  where  radiation 
heating  predominates  by  permitting  an  effective  radiative  heat  of  vaporization 
to  be  input  as  well  as  an  effective  convective  heat  of  vaporization. 


The  heat  shields  considered  can  be  homogeneous  or  composed  of  two 
separate  materials,  as  a plastic  resin  with  glass  fibers,  m which  case  the 
material  properties  for  each  and  the  relative  proportions  of  each  are 
specified. 

An  allowance  is  made  for  incomplete  vaporisation  of  the  melted  surface  by 
specifying  the  vaporizing  fraction. 

Under  ablating  conditions,  the  material  properties  can  be  dependent  on 
whether  the  flow  is  laminar  or  turbulent  and  provision  is  included  for 
handling  both  sets  of  inputs  and  specifying  the  transition  time;  in  this  case, 
the  convective  heat  pulse  input  must  contain  the  laminar  and  turbulent 
heating  rates. 

6.  Heat  Shield  Bond 


The  calculation  model  can  handle  the  effects  of  a bond  by  specifying  the 
average  bond  thickness  and  the  bond  thermal  properties  The  heat  shield 
weight  is  reduced  by  the  thermally  equivalent  (msulative)  weight  of  the 
bond.  The  total  weight  of  bond  and  heat  shield  is  an  output. 

7.  Structural  Thermal  Capacitance 


The  calculation  model  provides  for  the  effects  of  substructure  thermal 
capacitance  on  reducing  the  heat  shield  weight  requirements.  Program 
tests  are  performed  to  determine  whether  a heat  shield  is  needed  by  com- 
paring the  structural  thermal  capacitance  with  the  total  heating  and  with 
the  peak  heat  rate  to  ascertain  whether  an  excessive  temperature  rise 
occurs.  The  possible  combinations  of  tests  could  yield  the  result  that 
(a)  no  heat  shield  or  bond  is  required,  (b)  no  heat  shield  is  required  as  the 
bond  and  structure  are  adequate;  or  (c)  a heat  shield  and  bond  are  required. 

C LIMITATIONS 

The  limitations  of  the  program  arise  because  of  the  assumptions  made  m the 
calculation  model,  namely: 

1.  The  ablation  model  does  not  simulate  the  detailed  phenomena  of 
charring. 

2.  The  choice  and  performance  of  heat  shield  materials  could  be  limited 

by  mechanical  forces  encountered  m flight  or  while  on  the  ground.  These  forces 
are  not  considered  m the  program. 

3.  Minimum  thickness  limits  on  the  heat  shield  are  not  considered. 
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The  simplicity  of  the  calculation  model  results  m the  need  for  spot-checking 
results  with  the  results  of  more  sophisticated  programs,  and  either  modifying 
the  inputs  to  adjust  the  agreement  or  to  adjust  the  outputs  with  a scale  factor. 
The  program  is  aimed  at  determining  trends  parametrically. 
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A INPUT  DEFINITIONS 


II  USAGE 


Parameter  Units 

Recovery  factor. 

A number  of  the  form  XX  XX 
used  for  identification 

Specific  heat  of  bond.  Btu/lb-°F 

Specific  heat  of  heat  shield.  Btu/lb-°F 

Specific  heat  of  structure.  Btu/lb-°F 

A number  of  the  form  XX.  XX 
used  for  identification. 

Time  step  for  graphical  mte~  seconds 

gration  of  qc  and  and 

computation  of  W ^ . ° 

Emissivity 

Maximum  relative  error 
allowed  in  iterations  for 
structural  capacitance 
correction. 

Initial  relative  change  m heat 
shield  weight  for  structural 
capacitance  correction  itera- 
tion 

Free  stream  gas  enthalpy  table, 
maximum  number  of  entries  = 

150. 


Heat  of  vaporization  of  solid 
when  convective  heating  is 
blocked. 


Btu/lb 


Parameter  Units 

Heat  of  vaporization  of  resin  Btu/lb 

when  convective  heating  is 

blocked. 

Thermal  conductivity  of  bond.  Btu/hr-ft-°F 

Thermal  conductivity  of  heat  Btu/hr-ft-°F 

shield. 


Thermal  conductivity  of 
structure. 


5tu/hr-ft-°F 


Array  of  material  proper- 
ties for  laminar  flow, 
arranged  as  follows: 

Vaporization  fraction  of  solid 

Heat  of  vaporization  of  solid 

Transpiration  fraction  of  solid 

Solid  fraction 

Vaporization  fraction  of  resin 

Heat  of  vaporization  of  resin 

Transpiration  fraction  of  resin. 

A number  of  the  form  XX  XX 
used  for  identification. 


MXIT  50. 


Maximum  number  of  iterations 
in  structural  capacitance  cor- 
rection. 


QCMULtT  1. 


Convective  heat  pulse  multiplier J 


QRMULT  ' 1. 


Radiative  heat  pulse  multiplier. 


Convective  heat  pulse  table, 
maximum  number  of  entries 


Name 

Preset 

Values 

RH0B 

0. 

RH0HS 

0. 

RH0STR 

0. 

RTBL 

TABLr 

0. 

TBL1 

See 

program 

TBL2 

See 

program 

TEMPI 

0. 

TIME 

0. 

TMSTR 

0 

TREAR 

0. 

TSTART 

0. 

TST0P 

0. 

T TRANS 

1000. 

Symbol 

Parameter 

Units 

PB 

Density  of  bond. 

lb /ft3 

pHS 

Density  of  heat  shield. 

lb /ft3 

PSTR 

Density  of  structure  . 

lb/ft3 

qr 

Radiative  heat  pulse  table, 
maximum  number  of 
entries  = 150. 

Btu/ft2- 

ta 

Ablation  temperature 

°F 

Table  of  ( ATR/ATs,at/L2  ), 
arranged  with  first  a value  of 
ATr/ ATs  then  at/ L 2 , then 
the  next  pair,  etc.  Maximum 
number  of  entries  = 25  pairs. 

Table  of  {«t/L2>  ATM/ATS  ), 
arranged  with  first  a value 
of  at/L2  , then  ATM/ATg,  then 
the  next  pair,  etc.  Maximum 
number  of  entries  = 25  pairs. 

T. 

i 

Initial  Temperature. 

°F 

£ 

Table  of  independent  variable 
time  for  use  with  HTBLi,  RTBL, 
and  QTBL  dependent  variable 
arrays.  Maximum  number  of 
entries  = 150. 

seconds 

tmsx 

Melting  temperature  of 
structure 

°F 

tr 

Maximum  allowable  design 
rear  temperature. 

of 

Co 

Start  of  reentry  heating. 

seconds 

'f 

End  of  reentry  heating 

seconds 

tfcon 

Time  transition  occurs  in 
heating 

s ecor.d 

Name 

Preset 

Values 

_Symbol 

Parameter 

Units 

TURB 

0. 

Array  of  material  properties 
for  turbulent  flow,  arranged  as 
LAM  (see  above) 

WTB 

0. 

WB 

W eight  of  bond . 

lb/ft2 

WTSTR 

0. 

WSTR 

Weight  of  structure. 

lb /ft2 

XA 

0, 

XA 

Mole  fraction  of  argon  in 
undissociated  mixture. 

— 

XC 

0. 

xc 

Mole  fraction  of  CC>2  in 
undissociated  mixture. 

— 

XN 

0. 

Mole  fraction  of  N2  in. 
undissociated  mixture. 

- 

X0 

0. 

Xo 

, Mole  fraction  of  in 

undissociated  mixture. 

; - 

B INPUT  PROCEDURES 

Input  procedures  include  the  following: 

1.  Input  heat  shield,  structure,  and  bond  properties, 

2.  Input  QTBL,  HTBL,  and  RTBL  as  a function  of  TIME  (NOTE:  for 
each  TIME  input,  there  must  be  a QTBL,  HTBL,  and  RTBL  input; 
maximum  150  values  for  each  table). 

In  stacking  cases  it  is  necessary  to  add  at  least  one  0.  value  at  the  end 
of  the  TIME  table  after  the  first  case  if  the  number  of  entries  in  the 
table  is  decreased.  This  0,  is  used  internally  as  an  indication  of  the 
end  of  the  table. 

3.  If  transition  does  not  occur  during  the  convective  heat  pulse,  input  only 
the  LAM  array  of  material  properties. 

4.  If  transition  occurs  during  convective  heat  pulse,  input  both  LAM  and 
TURB  arrays  and  TTRANS,  the  time  at  which  pulse  switches  from  laminar 
to  turbulent  flow. 
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5.  Input  atmospheric  constituents,  initial  temperature,  and  stop  time  of 
pro  blem. 

6.  Input  design  rear  temperature  of  problem. 

7.  For  succeeding  cases,  input  only  the  changes  desired.  Howeve.r,  note 
(2)  above  if  TIME,  HTBL,  QTBL,  and  RTBL  are  to  be  changed. 

8.  A set  of  computer  input  forms  are  provided  for  the  user.  All  the  data 
shown  on  the  form  is  keypunched  when  the  variable  is  supplied. 


C OUTPUT  DEFINITIONS 


External  Name 

Internal  Name 

Parameter 

Units 

ACTUAL  TST0P 

TST0P 

tf  used  for  problem. 

seconds 

CASE 

CASE 

Identification  number 

- 

CORRECTED 

WINS 

WEIGHT 

Insulation  weight  corrected 
for  structural  capacitance 
and  bond  capacitance. 

lbs  /ft2 

CRMAX 

RQCMAX 

Maximum  combined  heating 
rate. 

Btu/ft2~sec 

DATE 

DATE 

Identification  number. 

DTM 

DTM 

Average  temperature  rise. 

°F 

HADJ 

HGT0T 

Average  stagnation  enthalpy 

— 

MEM0 

MEM0 

Identification  number. 

' — 

MINCRABL 

QR 

Minimum  combined  heat 
rate  necessary  for  ablation. 

Btu/ft2 -sec 

QCT0T 

QT0T 

Integrated  convective  heating 
including  multiplier. 

Btu/ft^ 

QRT0T 

QRRA 

Integrated  radiative  heating 
including  multiplier. 

Btu/ft2 

QT0TREQ 

QTREQT 

Combined  integrated  heating 
necessary  to  require  heat 
shield . 

Btu/ft2 

External  Name 

Internal  Name 

Parameter 

Units 

TADJ 

TADJ 

Start  time  of  insulation 
problem  after  end  of  ablation, 

seconds 

TCRMAX 

RTQMAX 

Time  of  maximum  combined 
heating  rate . 

seconds 

TI 

TI 

Initial  time  of  constant 
temperature  problem. 

seconds 

TR 

TR 

Time  of  maximum  rear 
temperature. 

seconds 

TSMAX 

TS2 

Maximum  surface  tempera- 
ture of  insulation  material. 

OF 

TTEST1 

TTEST1 

Structural  surface  tempera- 
ture attained  without  heat 
shield,  must  be  < TMDTSTR 
to  stop  problem. 

°F 

TTEST2 

TTEST2 

Structural  rear  tempera- 
ture attained  without  heat 
shield,  must  be  < TREAR  to 
stop  problem. 

OF 

TURB 

FC0N  (1,  1-7) 

Array  of  material  proper- 
ties for  turbulent  flow. 

— 

T1A 

T1A 

Start  time  of  ablation. 

seconds 

T2A 

T2A 

Time  ablation  ends. 

seconds 

WA 

WA 

Ablated  weight. 

lb /ft2 

WINS 

WT,  W9 

Insulation  weight  before 
capacitance  corrections. 

lb/ft2 

WT0T 

WT0TAL 

Total  heat  shield  weight 
including  bond. 

lb /ft2 

When  ablation  occurs,  there  are  printed  out  8 columns  arranged  time, 
ablation  rate,  time,  ablation  rate,  etc.  , from  left  to  right.  Time  is  in 
seconds,  ablation  rate  is  m lb/sec-ft2.  Internally,  these  are  called  A 27A(J), 
WDQ$T(  J). 
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D.  SAMPLE  PROBLEM 


1 . Statement  of  Problem 

Determine  the  heat  shield  weight  for  the  configuration  and  trajectory  used 
in  the  sample  problems  of  Programs  1880,  1885.  The  heat  shield 
material  properties  are  to  be  specified  as  well  as  the  necessary  data 
on  the  bond  and  substructure. 

2.  Input  Form 

The  input  form  containing  all  the  necessary  input  is  shown  on  the  following 
pages.  A number  of  cases  are  shown,  representing  the  heating  at  several 
stations  on  the  vehicle.  The  keypunched  input  shown  should  be  checked 
with  the  input  form. 

The  results  indicate  the  integrated  radiation  and  convective  heating,  and 
the  heat  load  for  which  a heat  shield  is  required.  The  maximum  combined 
heating  rate,  and  the  time  at  which  it  occurs  is  shown.  The  minimum 
combined  rate  necessary  for  ablation  is  shown,  and  can  be  seen  to  be 
larger  than  the  maximum  rate  occurring.  The  initial  time  and  adjusted 
enthalpy  are  given. 

The  solution  indicates  that  no  ablation  occurs  and  that  the  heat  shield 
has  not  fully  equilibrated  at  the  time  TST0P;  this  is  further  shown  by  the 
time  required  to  achieve  the  maximum  rear  face  temperature.  The  sur- 
face temperature  and  maximum  mean  temperature  of  the  heat  shield  are 
given.  The  insulation  weight  {nonablating)  required  with  and  without  the 
effects  of  thermal  capacitance  of  the  structure  and  bond  are  shown.  Finally, 
the  total  weight,  including  the  bond  weight  is  given. 

Case  4 indicates  that  the  required  convergence  was  not  achieved  and  the 
results  must  be  interpreted  with  caution.  Case  Syndicates  that  the  heating 
level  has  been  reduced  to  the  point  where  no  heat  shield  is  required. 
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DIGITAL  COMPUTER  INPUT 
REQUEST  FORM 


357< 


—18V.  00 


case=  1.00- 


-is/trW**- 


* MFMORY  MAP  * 

SYSTEH  00000  THRU  02717 

FILES  1.  UNIT05 

FILE  LIST  ORIGIN 02750 

CALL  ON  OBJECT  PROGRAM  02777 

-OBJECT  PROG-RAM 63004  THRU — frl-l-BV- 


2.  SP188V  05261  PR188V  17241 


4.  SCURVE  20007  CURVE  20075 


6.  STLUO  22340  TLUQ  22443 


8.  -LXCON  23070  .LXSTR  23070  * -LX5TP  23074  .LXQUT  23142  .LXRTN  23154  IB^XIT  23154  * 


.CLSE  23541  . LF8L  23542  * -LUNB  23543  .OFOUT  23S44 


-WRITE  23564  .BSft  23574  * • RFAOR  23604  -RELES  23606  * -LAREA  23617 


.GOA  23U7  .GO  23723  -DERR  23737  -N3PXI  23740  .COHXI  23742 


10.  .LXSL  23771  -LXSEL  23771  LXCSEL  23772  .LXTST  23775  * .LXOVL  24035  * -LXRCT  24046  * 


11.  .FPTRP  24130  -FFPT . 24130  * .FPOUT  24267  . FPARG  24306  /.COUNT/  24310  * OVFLOW  24361  *' 


13.  .XCC.  24374  CC.l  24374  CC-2  24375  CC.3  24376  CC.4  24377 


IS.  FXFM  24401  .FXEH.  24401  .FXOUT  24736  .FXARG  24744  /.OPTH./  25020 


17.  FCNV  _ 25373  .FCON.  25373  .FCNV.  25416  .ENDFS  25431  .CNVSW  25433  .F0X1  25437 


•DBC20  25621  .ODSW  25631  .D0F1X  25640  .F1XSW  25646  .ODBC  25723 

“rttml 2frt75 jf)f>ftS2 26177 r&t 26202 r02 26004 2627I- 

♦ANPT  26325  -ONPT  26342  . LNTP  26415  -AtJUT  26465  .OFLT  26503 


.LOUT  27246  .OOUT  27265  .XCF  27316  .TEST  30023  .KOUNT  30026 

-LIST 30001 sOSNe 30042 .OUTOr  -30106 30F04 rOSTfl 3<H-35- 

. WIDTH  30136  .GAIN  30137  .GAIN1  30140  . FQQBF  30150  .OOOFL  30173 


18.  FIOS  30220  .F10S.  30220  .FSEl.  30360  .FILR.  30364  .FRTB.  30373  * . FRTD.  30400 


.REED  30566  * .BIN  30567  * .FCT  30570  -FCKSZ  30572  * 


20.  FWRD  31655  .FWRD.  31655 

-2-1-i-PKPO 31701 ?FWRth 31701 

22.  FWRO  31725  .FWRO.  31725  .FREST  32230  * 

23.  -Ffrpu 32332 32332 

24.  UN05  32373  .UN05.  32373 

25.  -UN06 32  374 JtJNO« 32374 TtWPS? 32375 


•IBLOR- 


26.  FtOU  3240C 
28-  FXPF  34766 
30-  FXP3  35213 


32.  -IOCSM  41135 
I/O  BUFFERS 
UNUSED  CORF 


.FIOU. 


EXP 

-SORT— 

-XP3. 


.CLOS. 


.READ. 

>SEL59 


32400  -CTUIO 


34766 


35213 


35572 


36250 


40035  * 
4M-31  — 


ATTC. 

RER1. 

BSR. 


33053  -NHLST 


35605 


36273 

40446 


SHI 

WRIT. 

EOTOF 


33076 


35017  * 

36275 
-36751  * 
40573 


-NAME.  34201  . INTAP  3420? 


-.DEFI. 345A7 JOIHX 35551 

-SH9  36061  * -OPEN.  36102 


-KYT1A  36463  4 .EOFEX  36544  * 


.ET0F3  40601  * -4WITC  40630 


4L135  THRU  77700 
77701  THRU  77777 
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358 


-»-tWPUT 

^ ’ U-ILUWW'UL  * 

0.60000000E-01, 

0* 15000000F— Oli 

0.70000 00 OE -01, 

oi 26000000E— 0 1 i 

0.80000000E-01. 

0. 12500000E  00. 

0I18200000E  ooi 

0.17500000E  00, 

oi27400000E  ooi 

0.22500000E  00, 

_ 

0.40000000E  Ooi 

0.58400000E  00, 

0I45000000E  ooi 

0.630000006  00, 

o.soooooooi  00, 

0.65000000E  00, 

0I77400000E  ooi 

oi 70000000E  ooi 

oiooioooooE  ooi 

o,7?oooooo£  oo. 

0I90000000E  Ooi 

oIiooooooof  01 i 

oilOOOOOOOE  Oli 

oi 50000000E  03t 

0. 10000000E  01, 

TBL2 

O.OOOOOOOOE-38, 

O.OOOOOOOOE-38, 

0. 250000006-02. 

0.50000000E— 01, 

0. 10000000E— 01, 

0.6 900000 oe-oi. 

oil 0000 oooe  ooi 

0.1 00 000 DOE  00, 

oilsooooooE  ooi 

oil3500000E  00, 

0I25000000F  00, 

oi56200000E  ooi 

oi30000000E  Ooi 
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in.  COMPUTATIONS 


A.  BLOCK  DIAGRAM 

The  block  diagram  for  Program  1884  is  given  m Figure  4. 


WTOT 


65  - 11915 


- Figure  4 BLOCK  DIAGRAM  FOR  PROGRAM  1884 
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B.  SYMBOLS 


Symbol 

Definition 

Units 

CB  * CHS’  CST 

Specific  heat  of  bond,  heat  shield,  and 
structure . 

Btu/lb-°F 

kb , khs  , kst 

Conductivity  of  bond,  heat  shield,  and 
structure . 

Btu/ft-hr-°F 

PB’  PHS>  pST 

Density  of  bond,  heat  shield,  and  structure. 

lb/ft3 

€ 

Emissivity. 

a 

Stefan-Bolzmann  constant . 

Btu/ft2-sec-° 

\ 

Initial  tim  e . 

seconds 

t 

m 

Time  at  peak  combined  heatmg. 

seconds 

H 

Final  time  of  problem. 

seconds 

^a*  cta 

Times  when  ablation  starts  and  stops. 

seconds 

CR 

Time  when  rear  temperature  equals  specified, 
value . 

seconds 

tadj 

Start  time  for  post-ablation  insulation  problem. 

seconds 

Ti 

Initial  temperature. 

OR 

Tl,  T2 

Temperature  defined  by  Equations  (6)  and  (7). 

°R 

ta 

Ablation  temperature. 

°R 

ATm 

Mean  temperature  rise. 

°R 

Maximum  combined  heat  rate. 

Btu/ft^-  sec 

V^R 

Convective  and  radiative  heat  rates* 

Btu/ft^-sec 

H , h 

s W 

Stagnation  and  wall  enthalpy. 

Btu/lb 

VQr 

Integrated  convective  and  radiative  heating  ♦ 

Btu/ft2 

qpa 

Total  heat  load  for  post-ablation  insulation 
analysis. 

Btu/ft 
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Symbols 


Definition 


Units 


W , w „ Ablation  rates  for  convection  and  radiation 
a’  aR 

and  for  radiation  only. 

WA  Total  ablated  weight. 

C.  EQUATIONS 

1.  Initial  Time 


qcdt  + 2 


lb/ft2-sec 
lb /ft2 


(1) 


2.  Integrated  Heating 


Qc  - 


Qr  = 


/ 

/ 


ci 

qcdt 


qRdt 


3.  Average  Total  Enthalpy 
a.  Nonablating  Case 

c£ 


HSA  = 


b.  Ablating  Case 


— f" 

(tf  “ tadj)  J 

radj 


(2) 


(3) 


(4) 


(5) 


-44- 

376< 


4.  Heat  Shield  Requirement  Tests 


T1  a*  Tj  + — 

v kst  ^st  cst 


(Qc  + Qr) 

T2  = Ta  + 

WST  CST 

5.  Thermal  Capacitance  of  Bond 

A / KHS  Phs  CB 

AWHS  “ WB  / “Y  ■'  c 

/ kb  pb  chs 


6.  Insulation  Weight  --  Nonablating  Case 
a.  Test  Time  for  Equilibration  (tR) 


| J Phs  khs  chs  Atr  + 4 e TR 

<3cl 

fi-—  ) 

I + Or 

1 2 f crTR 

b.  Weight  for  tR  < tf 
/ PHS  kHS 


^tr  v Phskhschs 

2™tk 

(9) 


"7  V cr  ~ 

CHS 


c.  Weight  for  cR  > tf 


J + faTw  (tf  “ V = WHS  CHS  AlM  ' * 

Where  AT^/AT^and  ATj^/AT^  are  assumed  to  be  a function  of 
/ Phs  ^HS  — O \ 

[ j in  accordance  with  the  constant  surface  temperature 


model  and  the  solution  given  m Reference  3.  The  solution  Ls  found  via 
iteration  on  (T^?)  using  the  relationships  for  ATm/AT^and  ATR/AT^p 
developed  in  Reference  3. 
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7.  Ablation  Weight 


a.  Test  for  Occurrence  of  Ablation 


R) 


9r> 


PHS  KHS  CHS  4 

+ <raTA 

2 (t-,  - t:)  A 


(12) 


b.  Ablation  Rate  (wa) 

1)  Convective  and  Radiation  Heating 


-[-a 


+ qR  -^Ta 


cHs  ATa  + Xfj  [Hyi  + Vl  (Hs  - hw)]  + (1  - X)  f2  [HV2  + 772(HS  - hw)l  (1  3) 


c.  Test  for  Blockage  of  all  Convective  Heating 
<R  111  (Hs  - hw)  Xf1+,2(HS  - h„>  ! > 


[-a 


qR  ‘ 


CHS  ATA  + Xfl  HV1R  + (1  “ X>  f2  HV2R 


(14) 


(15) 


If  Equation  (14)  is  satisfied,  then  ablation  rate  calculation  switches 
from  Equations  (13)  to  (15). 


d.  Start  and  Stop  of  Ablation 
Ablation  starts  and  stops  when: 
+ qR  = €(r  T A' 


% 


R) 


u4 


e.  Insulation  Weight  for  Ablation  Period 
^ (cfa  “ * 


WINA 


■ hs)  ( phs  kes\ 

' \ CHS  / 


(16) 


(17) 
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f.  Adjusted  Time 


I * TJ  ,YX 


4 /PNSKHS\  A fa  ~zia 


CHS  J \ WA 

Post-Ablation  Heat  Stored 


Qpa 


r 

cadj 


+ qR 


dt-QA 


1 ' f M-sf 

* d . r,-  "0\i  f„. 

(19) 


where  Q i s ^th  e Tie ab ja b s~6rbe~d  and  ^blocked  by  the  ablationr process 3„ 
j — -which. Is  foundfby-cpnsiderationjof  'Equations  (13)  and  (14),._ ' ’A 

j h.  PosT-A'blatiorTInsulafi'dii  Weight”3 


j Qpa“  ecrTw 


AT 


I zmiioii 

j { t 5 

t j L-  -(zorr { 


‘ . J-  -I  / y iT(i3Tr  S 1 

'Solve  Equation?^ 0,)  for-wW_  as  described  previously  forpEquation.^AT) . 

. -vri  ' ~ *:*£  >-i 


L j~8Vp -Structural  - C a pa  c itahe  e 


\ 


A table  lookup'use, tit  to n „f  o r * the  rear  t emp e r atur e response  in  a 
/ f mite^slabj b{acked£By-a  capacitive  structure  whose  surface  is  at  a constant 
/'  }temperatu?re  and  whose  backface  is  insulated.  3 The  temperature  ratio 
\ M,i,*(Al^7ATw)  1S  assumed  unchanged  by  the  structure. 

\ y j 

Vail  Enthalpy 

| » 

The 'w&ll  enjthalpy  ns-giwen  by:- 

; “j  j j nt3s^j3s>'ji  1 "'*)  j 

I ftM:?3UTeHr*  }h-Kf  3TVl3Tt  t— I 

•JLJl’A  1 W ( *AM3  I r 


7 


“A08 


J RTi- 


f»-b?  i 

I 


2^>/AH2TS3*' 


— j 

, . _JL, 

\/ 

The  coefficients  A and  B are  computed  automatically  by  specifying  the 
atmospheric  compos itiqni,andvutilizangi.ta!b.ularu}thermochemical  data  stored 
m the  program.  All  modules  are  assumed  to  have  zero  enthalpy  at  0°K. 
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IV.  IBM  ROUTINES 


A.  PROGRAM  FLOW 

The  program  flow  is  shown  in  Figure  5, 


€5-11916 


Figure  5 FLOW  DIAGRAM  FOR  PROGRAM  1884 
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B.  MAIN  PROGRAM 


1.  Purpose 

The  purpose  of  the  main  program  is  to  acquire  the  necessary  input  data, 
and  to  transmit  this  data  to  subroutine  PRI884  within  which  the  compu- 
tations are  completed. 

2.  Method 

The  input  variables  are  defined  by  their  inclusion  in  the  namelist  array 
INPUT,  and  their  types  and  dimensions  specified.  'The  data  statements 
and  the  arithmetic  statements  setting  the  elements  of  TBL1  and  TBL2 
preset  values  are  of  the  solution  for  a finite  slab  with  one  end  insulated 
and  the  other  at  constant  temperature  (Reference  1,  p.  244,  Equation  (9)). 
These  tables  are  arranged  so  that  for  TBL1  add  indices  are  monotonic 
increasing  values  of  the  parameter  AT.^/  AT.^.  and  even  indices  are  mono- 
tonic increasing  values  of  at/L2  and  even  indices  are  values  of  AT  / AT  . 

m w 

The  program  input  is  read  through  namelist  at  Statement  100.  The  identi- 
fication numbers  DATE,  MEM0,  and  CASE  are  written  on  the  output  tape 
followed  by  the  namelist  data.  The  call  to  Subroutine  PR1884  initiates  all 
of  the  calculations  and  output  of  results  for  the  case.  After  this  call 
control  is  transferred  immediately  back  to  Statement  1000  for  consider- 
ation of  the  next  case. 
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C.  SUBROUTINES 


CABLING  SEQUENCES 


Variable 

ahr 

TABL 

TREAR 

TEMPI 

PR1884 

Input  or  Output 

Input 

Input 

Input 

Input 

Source 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

EMIS 

TSTART 

DTI 

TBL1 

TBL2 

CP2DG(CPSTR) 

Input 

Input 

Input 

Input 

Input 

Input 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

W2DG{WTSTR) 

XITDG(MXrr) 

EPSDG  ( EPSIL) 

FCTDG(FACTtfR) 

DDGl(TIME) 

DDG2(QTBL) 

Input 

Input 

Input 

Input 

Input 

Input 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

DDG3{HTBL) 

DDG4(RTBL) 

XLAM(LAM) 

XTURB(TURB) 

QMULT(QCMULT) 

ERT(QRMULT) 

Input 

Input 

Input 

Input 

Input 

Input 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

ZK1  (KHS)  ! 

TFC0N(T  TRANS) 

RH0(RH0HS) 

CP(CPHS) 

i XN 

X0 

Input 

Input 

Input 

Input 

Input 

Input 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

XA 

XC 

ZKSTR(KSTR) 

WTB 

CPB 

TSTP0{TST0P) 

Input 

Input 

Input 

Input 

Input 

Input 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

ZKB(KB) 

R0ST(RH0STR) 

TMST(TMSTR) 

R0B{RH0B) 

HV1R 

HV2R 

Input 

Input 

Input 

Input 

Input 

Input 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

Variable 

ARG,  value  of 
indep.  variable 

TBLi,  table  of 
alternate  indep. 

ANS,  result  of 
table  look-up 

Input  or  Output 

Input 

and  dep.  vars. 
Input 

Output 

Source 

Calling  program 

Main 

TLUQ 
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CURVE 

Variable 

Input  or  Output 
Source 

zk-khs 

Input 

Program  Input 

RHO*  PHS 
Input 

Program  Input 

CP>  CPHS 
Input 

Program  Input 

TR,  tR 

Input 

MAIN 

TSS,  T 

s 

TEMPI,  T 

WW>  WINS 

TST0P,  tf 

TI,  t 

ANS 

Input 

Input 

Input 

Input 

Input 

Input 

MAIN 

Program  Input 

CURVE 

Program  Input 
or  MAIN 

MAIN 

TLUQ 

ANS2 

TBL1 

TBL2 

D™.  ATm 

TREAR 

Output 

Input 

Input 

Output 

Input 

CURVE 

Program  Input 

Program  Input 

CURVE 

Program  Input 

VARIABLE 

MITDG,  max 

EPSDG, 

FCTDG,  relative 

CP1DG.  CpriS. 

iterations  for 

convergence  tol- 

change 

Specific  heat  of 

corrected  WINS 

erance  for 

iteration  for 

heat  shield 

corrected  WINS 

corrected  WINS 

Subroutine 

Input 

Input 

Input 

Input 

C0RFIT 

Input  or  Output 

Program 

Program 

Program 

Program 

Source 

Input 

Input 

Input 

Input 

CP2DG, 

W2DG,  WSTR. 

RHO  IDG,  p. 

ZK1DG,  KHS» 

TIMIDG, 

ww.  Wins, 

Specific  heat  of 

weight  of  structure  heat  shield 

heat  shield 

effective  initial 

uncorrected  heat 

structure 

density 

thermal  cond 

time 

shield  weight 

Input 

Input 

Input 

Input 

Input 

Input 

Program  Input 

Program 

Program 

Program 

Main 

Mam 

Input 

Input 

Input 

TSTPDG.tf,  actual 

TSRDG,  Tr, 

TSBID,  Tx, 

TSSDG,  Ts> 

QTDURZ,  duratioi 

i TSTTDG,  t,. 

TST&F 

max  allowable 

initial  tempera- 

average  surface 

of  heat  pulse 

initial  time  of 

rear  temp 

ture 

temperature 

problem 

Input 

Input 

Input 

Input 

Input 

Input 

Main 

Program 

Program 

Mam 

Mam 

Program 

Input 

Input 

Input 

DTM2,  ATm, 

WEIGHZ, 

mean  temperatu* 

e corrected  beat- 

shield  weight 

Input 

Output 

Main 

C0RFIT 

FINWT 

VARIABLE 

Subroutine 
Input  or  Output 
Source 

R,  l/^»  thermal- 
capacitance  ratio 

COiRFIT 

TAU,  r , 
dimensionle  s s 
time 

Input 

CORFIT 

DV»  V2, 
dimensionless 
temperature 

Output 

FINW1 

RT,  indep. 
var  table  of  R 

Input 

C*RFIT 

TAUT,  indep 

DVT,  dep  var. 

var.table  of  f 

table  of  dimensio 

i- 

less  temp 

Input 

Input 

cOrfit 

cOrfit 
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SUBROUTINE  DESCRIPTIONS 


1.  PR  1884 

a.  Purpose 

The  purpose  of  Subroutine  PR  1884  is  to  compute  the  heat  shield  weight 
necessary  to  limit  the  backface  temperature  to  some  (input)  design 
limit  given  a knowledge  of  the  heating  environment,  and  provide  the 
necessary  output  from  the  calculation. 

b.  Method 

Immediately  following  the  subroutine  and  dimension  statements  is  the 
definition  of  the  wall  enthalpy  function  HWALL(T),  where  T is  some 
temperature  in  degrees  F and  the  coefficients  A27N  and  B27N  are 
computed  as  functions  of  the  input  atmosphere. 

The  first  executable  statements  initialize  WT0TAL,  WA,  and  NM,  the 
D0  50  loop  counts  the  number  of  values  entered  in  the  TIME  table 
(DDG1),  by  checking  for  the  first  zero  entry  beyond  the  first  table 
element. 

By  Statement  8003,  the  sum  of  the  atmosphere  constituent  mole  frac- 
tions has  been  checked  to  see  if  it  is  = 1+  0.  001,  and  by  the  Statement 
D0  8000,  the  wall  enthalpy  coefficients  A27N  and  B27N  have  been  com- 
puted. The  D0  10  loop  arranges  the  tables  QTB,  HTBD,  and  RTBL 
so  that  odd  indices  contain  values  of  the  TIME  table,  and  even  indices 
contain  the  corresponding  values  of  the  input  convective  heating,  enthal- 
py, and  radiation  heating,  respectively. 


The  tests  and  calculations  preceding  Statement  8005  redefine  the  value 
of  TST0P  if  necessary.  The  duration  of  the  heat  pulse  (QTDUR)  is 
defined  as  the  time  after  maximum  convective  heating  that  the  convec- 
tive heating  is  < 1 percent  of  the  maximum  heating,  minus  the  input 
TSTART,  If  the  input  TST0P  minus  the  input  TSTART  is  > 2*  QTDUR, 
TST0P  is  changed  to  = 2(QTDUR-TSTART). 
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Between  Statements  8005  and  7331,  constants  are  stored  for  use  by 
subroutine  C0RFIT,  QTBL  is  defined  (loop, ending  on  102)  to  be  the 
convective  heating  time  QCMULT,  RADR,  RADA,  DELTA,  and  DELTR 
are  defined,  the  heat  shield  thermal  conductivity  is  changed  for  agree- 
ments m units,  and  the  maximum  combined  radiative  and  convective 
heating  is  computed  along  with  the  time  it  occurred  (RQGMAX  and 
RTQMAX,  respectively). 

The  D0  loop  ending  on  7332  computes  three  integrals  by  the  trapezoidal 
method,  the  integrals  from  the  first  entry  on  the  TIME  table  to  TST0P 
of  the  combined  radiative  and  convective  heating  (QRT0T)  and  of  the 
radiative  heating  (QRRA),  and  the  integral  from  the  first  entry  m TIME 
to  RTQMAX  (see  above)  of  the  combined  radiative  and  convective  heat- 
ing (RQINT). 

The  D0  loop  203  computes  the  maximum  convective  heating  (QCMAX) 
and  the  time  when  it  occurred  (TQMAX).  D0  loop  207  computes  by  the 
trapezoidal  method  two  integrals,  the  integral  from  the  first  entry  of 
the  TIME  table  to  TST0P  of  the  convective  heating  (QT0T),  and  the 
integral  from  the  first  entry  on  the  TIME  table  to  TQMAX  of  the  con- 
vective heating  (QINT). 

Statement  208  defines  an  effective  initial  time  TI,  and  by  Statement 
6048  the  enthalpy  at  TABL  and  TREAR  (HWABL  and  HWABR),  along 
with  the  output  quantity  MINCRABL  (internally,  QR)  and  the  quantity 
QPIMER  are  computed.  By  Statement  8008  the  quantities  TTEST  1 and 
TTEST  2 are  computed.  If  TTEST  1 < TMST  (input  as  TMSTR)  and 
TTEST  2 < TREAR,  no  protective  shield  is  required  and  the  next  case 
is  considered  (RETURN).  Between  Statements  8011  and  7248,  the 
quantity  QTREQT  is  computed  and  selected  heating  integrals,  and  time 
are  provided  as  output.  After  Statement  7248  T1A  is  defined  to  be 
TSTART,  and  a test  is  made  so  that  if  QR  < RQMAX,  (Reference  1, 
p 250,  Equation (23))  the  ablation  case  is  solved  (Statements  300  to, 
but  not  including,  400).  Otherwise  the  nonablating  case  is  computed 
(Statements  400  to,  but  not  including,  500). 

Statements  301  to  308  compute  the  times  T1A  and  T2A  which  define  the 
time  interval  during  which  ablation  is  occurring.  This  logical  loop 
provides  for  successive  evaluations  of  the  quantity  DIF  as  the  indepen- 
dent variable.  TIME  is  incremented  by  the  input  DTI,  and  T1A  is 
defined  as  that  time  before  RTQMAX  that  DIF  passes  through  zero,  and 
T2A  is  the  time  after  RTQMAX  that  DIF  passes  through  zero.  Test 
302  indicates  a change  of  sign  in  the  residual  and  hence  the  existence 
of  a near  root.  Test  1778  assures  that  the  value  of  DIF  is  within 
±0.  01  of  zero.  It  should  be  noticed  that  if  DIF  > 0.  01  at  TSTART  + 
DTI,  then  T1A  is  arbitrarily  set  equal  to  TSTART,  and/or  if  DIF  > 
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0.  01  at  TST0P,  T2A  is  arbitrarily  set  equal  to  TST0P.  For  problems 
of  this  nature,  the  potential  errors  inherent  are  obvious. 

The  block  of  statements  between  928  and  926  are  executed  twice,  first 
with  the  control  variable  KKK  = 1,  then  with  KKK  =2.  For  KKK  « 1, 
the  D0  loop  entry  at  311  computes  the  ablation  rate  (WD0T(J))  as  a 
function  of  time  (A32A(J))  between  T1A  and  T2A.  The  test  before 
Statement  826  determines  if  laminar  or  turbulent  material  properties 
will  be  used  to  compute  WD0T{J).  The  first  row  of  the  array  FC0N 
when  the  input  TTRANS  (internally  TFC0N)  is  < TIME,  the  second  row 
when  TTRANS  > TIME.  The  IF  test  before  3085  will  modify  the  com- 
putation of  WD0T(J)  when  the  convective  heating  is  •■blocked".  The 
D0  loop  ending  on  312  integrates  WD0T(J)  by  the  trapezoidal  rule  to 
compute  the  total  ablation  rate  (WA). 

The  statements  between  313  and  6003  initialize  T^  and  KKK  for  the 
second  pass  through  Statements  928  and  926.-  This  pass  provides  for 
the  calculations  of  WD0T(J)  between  the  times  RTQMAX  and  T2A, 
which  are  used  to  compute  the  "adjusted"  time  TADJ.  Again  suitable 
properties  are  selected  depending  on  whether  the  heating  is  laminar  or 
turbulent,  or  the  convective  heating  is  blocked:  The  D0  loop  ending 

on  Statement  6004  computes  the  cumulative  sum  WA7C,  which  is  used 
after  Statement  6005  to  compute  TADJ  (Reference  1,  p,  253,  Equation 
(34)).  For  the  purposes  of  the  structural  capacitance  correction,  T1 
is  taken  to  be  TADJ  for  ablating  cases  (after  Statement  326,  TIMID G). 

Between  6005  and  500,  three  integrals  are  computed  for  use  in  the 
insulation  weight  calculation.  These  are  the  enthalpy  and  convective 
heating  integrals  HGADJ  and  QINS  between  TADJ  and  TST0P  (loop 
ending  on  326),  and  the  radiation  heating  integral  QRT0T1  between 
T2A  and  TST0P.  The  first  two  integrals  are  computed  by  the  trape- 
zoidal rule,  and  the  third  by  a firts -order  Euler  method.  After  326 
the  average  enthalpy  is  computed  and  stored  in  HGT0T.  Output  is 
provided  as  HGT0T,  TI,  T1A,  T2A,  and  WA  before  3026.  This  ends 
the  calculations  made  for  ablation,  and  the  G0T0  500  before  Statement 
700  transfers  to  the  final  insulation  weight  calculations. 

The  nonablation  calculation  is  done  between  Statements  400  and  500. 
Three  entegrals  are  computed,  the  first  of  which,  QC,  is  simply  equal 
to  QT0T  (see  above),  the  integral  of  the  convective  heating  from  the 
first  entry  of  the  TIME  table  to  TST0P.  In  the  D0  loop  ending  on 
3325  the  radiation  heating  integral  QRT0T1  between  TSTART  (equal  to 
T1A  for  nonablating  cases)  and  TST0P  is  computed  by  a first-order 
Euler  method.  The  D0  loop  ending  on  404  computes  the  enthalpy 
integral  HGT0T  between  the  effective  initial  time  TI  and  TST0P. 
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After  Statement  404,  this  enthalpy  is  averaged  over  the  time  range  and 
stored  in  GHT0T.  The  nonablating  calculation  ends  at  Statement  500, 
where  the  insulation  weight  calculation  starts  for  both  ablating  and 
nonablating  cases. 

The  Statements  from  500  to  132  check  the  validity  of  the  average 
enthalpy  calculation.  The  first  restriction  is  that  the  average  enthalpy 
times  AHR  > the  enthalpy  at  temperature  TREAR.  If  it  is  not,  TST0P 
is  arbitrarily  shortened  by  5 seconds,  N0G0  set  = 1,  and  the  G0T0 
499  provides  for  reaver  aging  the  enthalpy.  More  specifically,  the 
variable  N0G0  is  1 if  TST0P  is  decreased,  2 if  TST0P  is  increased, 
and  0 if  no  corrections  were  necessary. 

If  the  average  enthalpy  is  sufficiently  large,  then  the  quantity  TR,  the 
time  at  which  the  backface  reaches  the  design  limit  temperatures  is 
computed.  If  TST0P  has  not  been  adjusted  to  recompute  the  average 
enthalpy  {N0G0  = 0),  and  TR  > TST0P-TI,  then  the  slab  has  not 
equilibrated  and  the  transfer  to  Statement  502  begins  the  insulation 
weight  computation.  If  TRCTST0P-TI,  N0G0  is  set  to  1 and  TST0P 
is  decreased  by  5 seconds  and  the  average  enthalpy  is  recomputed 
(G0T0499)  and  the  tests  start  again. 

If  the  average  enthalpy  is  sufficiently  large  but  TST0P  has  been  de- 
creased immediately  before  {N0G0  = 1),  then  TR  is  again  compared  to 
TST0P-TI;  if  <,  N0G0  is  set  to  1,  TST0P  is  decreased,  and  a new 
average  enthalpy  computed;  if  =,  then  the  slab  is  in  equilibrium  and 
the  transfer  to  501  starts  the  insulation  weight  calculation;  if  >,  N0G0 
is  set  to  2,  TST0P  is  increased  by  1 second,  and  a new  average 
enthalpy  is  computed.  Resetting  the  counter  NM  assures~“that  TST0P 
cannot  be  thus  increased  more  than  40  times. 

If  the  average  enthalpy  is  sufficiently  large  but  TST0P  has  been  in- 
creased immediately  before  {N0G0  = 2),  then  TR  is  compared  to 
TST0F-TI.  If  the  slab  is  in  equilibrium,  the  transfer  to  501  starts  the 
insulation  weight  calculation.  If  >,  N0G0  is  set  to  2,  TSTART  is  in- 
creased by  1 second  and  if  NM<  40,  a new  average  enthalpy  is  computed. 

The  calculation  of  the  insulation  weight  is  done  in  two  ways,  depending 
on  whether  the  slab  has  equilibrated  by  the  end  of  the  problem.  If  so, 
then  this  fact  is  indicated  and  the  statements  from  501  to  (not  including) 
502  compute  the  insulation  weight  (WT),  corrected  insulation  weight 
(WEIGHT)  and  total  weight  (WT0TAL)  from  algebraic  evaluations  in- 
volving only  input  and  TR.  Output  is  provided  (after  Statement  8015) 
and  the  next  case  is  considered  (RETURN  before  Statement  502). 


When  the  slab  has  not  equilibrated  at  the  end  of  the  problem,  the  insulation 
weight  is  computed  between  Statement  502  and  the  end  of  the  program. 

There  are  two  iterations  necessary  to  compute  the  insulation  weight. 

The  outer  iteration  is  for  the  weight  (W9).  Statements  600  to,  but  not  in- 
cluding, 6605,  and  inner  iteration  is  for  the  average  surface  temperature 
TSS  from  Statements  601  to,  but  not  including  603.  The  statements  from 
502  to  600  define  the  first  iteration  coefficients  for  the  function 'of  TSS 
whose  root  is  computed  by  an  accelerated  Newton- Raphs  on  procedure  in 
the  temperature  iteration  loop.  The  first  guess  for  weight  is  0,  and  the 
first  guess  for  the  temperature  is  a maximum  value  (TSR)  from  Reference 

1,  p.  245,  Equation  (13).  The  temperature  iteration  starts  at  601.  If  the 
temperature  converges  to  within  1 degree  R in  less  than  4l  iterations 
(counted  by  IN0T),  and  is  > 460,  subroutine  CURVE  is  called  at  Statement 
6606.  CURVE  uses  the  converged  temperature  to  compute  an  insulation 
weight  WW  from  the  tables  of  the  solution  to  the  constant  surface  tempera- 
ture problem,  TBUl  and  TBL2.  If  this  weight  WW  converges  with  a rela- 
tive error  less  than  0.  0001  to  the  weight  computed  m the  previous  itera- 
tion (W9),  then  the  iteration  stops.  If  not,  then  a successive  approxima- 
tion is  done  if  the  number  of  iterations  (counted  by  III)  is  < 20.  If 

more  than  20,  the  iterative  procedure  is  terminated  and  the  last  values 
of  TSS  and  W9  are  used. 

Statement  703  follows  the  iteration  for  insulation  weight.  The  call  C0RFIT 
statement  provides  Subroutine  C0RFIT  with  the  necessary  information  to 
compute  the  insulation  weight  (WEIGHT),  corrected  for  structural  capa- 
citance. After  the  return  from  C0RFIT,  the  insulation  weight  (WEIGHT) 
is  further  corrected  for  the  effective  thermal  resistance  of  the  bond,  and 
the  total  weight  is  computed.  Before  8007,  output  is  provided  including 
the  insulation  weight  (W9),  the  corrected  insulation  weight  (WEIGHT,  > 0), 
and  the  total  weight  (WT0TAL).  The  RETURN  provides  for  the  considera- 
tion of  the  next  case. 

2.  TliUQ 

a.  Purpose 

TL»UQ  performs  a linear  interpolation  on  the  tables  m 1884  TBLl, 

TBL2,  QTBli,  HTBL,  and  RTBL.' 

b.  Method 

The  value  of  the  independent  variable  is  ARG,  and  both  dependent  and 
independent  variable  tables  are  contained  in  TBL,  the  odd  indexes 
referring  to  independent  variable  values  and  the  even  indexes  to  the 
corresponding  values  of  the  dependent  variable.  The  result  of  the  linear 
interpolation  is  placed  in  ANS.  TLUQ  is  used  instead  of  ARTLU, 
only  because  of  the  arrangement  of  the  Tables  TBUl,  TBL2,  QTBli, 
HTBE,  and  RTBE. 
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3.  CURVE 


a.  Purpose 

CURVE  uses  input  data  and  tables  plus  a value  of  the  average  surface 
temperature  to  compute  the  insulation  weight. 

b.  Method 

Given  input  constants  and  the  tables  TBlil  and  TBL2,  CIJRVE  first 
defines  DTRTS,  and  performs  a table  look-up  in  TBL1  to  obtain  a value 
of  at/L2  , which  is  stored  in  A1SFS.  This  value  is  then  used  to  compute 
the  insulation  weight  WW  and  is  used  as  the  value  of  the  independent 
variable  in  the  table  look-up  in  TBB2  to  define  a value  of  ATm/  Ats  . 

This  quantity  is  stored  in  ANS  2,  and  is  used  to  compute  the  average 
temperature  rise  DTM. 

4.  C0RFIT 

a.  Purpose 

For  the  case  m which  the  slab  has  not  equilibrated  by  the  end  of  the 
problem.  C0RFIT  is  used  to  compute  the  insulation  weight  corrected 
for  structural  capacitance  (see  Reference  1,  p.p . 254,  255,  and  the 
first  two  lines  of  p.  256). 

b.  Method 

C0RFIT  first  defines  DVT  as  a two-dimensional  dependent  variable 
table,  the  function  of  Reference  1,  p.  255.  The  independent  variable 
tables  are  TAUT  (r  of  Reference  1),  and  RT  (1 1 <j>  of  References  1). 

By  statement  30  these  tables  have  been  defined,  along  with  the  neces- 
sary input  to  C0RFIT  for  the  calculation.  By  Statement  2,  a value  of 
(TLIL)  is  defined  for  computing  r . TLILi  is  first  defined  as  the 
actual  TST0P  used  by  the  main  program  minus  the  effective  initial 
time  for  the  calculation  (the  output  TI  for  nonablating  cases,  TADJ 
for  ablating  cases).  If  the  actual  TST0P  minus  the  input  TSTART  is 
greater  than  twice  the  duration  of  the  heat  pulse  (see  MAIN  program 
description).  TUL  is  redefined  (Statement  1)  to  be  twice  the  duration 
of  the  heat  pulse  minus  the  effective  initial  time. 

The  solution  for  W1  must  be  an  iterative  procedure  since  r and  l/ <J> 
depend  on  Wl.  The  procedure  used  here  is  a method  of  false  position, 
with  WI  for  the  first  guess  corresponding  to  the  largest  value  of  r m 
the  tables  (10),  as  defined  by  Statement  3.  Immediately  before  State- 
ment 3,  the  reference  temperature  difference  ratio  is  defined  as  DTREF, 
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Having  selected  a Wl,  t and  1/0  are  computed  (TAU  and  R),  their 
values  checked  to  see  if  they  are  inside  the  range  of  TAUT  and  RT, 
and  the  subroutine  FINW1  provides  the  temperature  difference  ratio 
(DV)  corresponding  to  TAU  and  R.  This  value  of  DV  is  compared  to 
DT  REF  (before  Statement  9),  and  if  the  relative  error  is  less  than  the 
input  EPSIL,  the  iteration  procedure  is  terminated.  If  greater  than 
EPSIL,  Wl  is  decreased  by  the  input  quantity  FCT  (FACTOR  externally) 
and  a new  DV  computed  by  going  to  Statement  4,  etc.  This  continues 
until  a change  of  sign  in  the  residual  indicates  a near  root  (Statement 
12),  at  which  time  Wl  is  reset, but  FCT  is  reduced  by  multiplying  by 
0.3  (Statement  13).  This  process  continues  until  convergence  is 
reached,  or  until  the  number  of  iterations  exceeds  the  input  MIT 
(MXIT  externally). 

Errors  are  checked  for  by  the  program  by  four  successive  IF  tests 
ending  at  Statement  7.  If  Wl  is  negative,  a message  is  printed  in  the 
output  and  the  corrected  weight  (WEIGHT)  is  not  computed.  If  Wl  is 
too  large  (TAU  lower  than  first  entry  of  TAUT,  the  upper  limit  for 
Wl  is  tried.  If  the  sign  of  the  residual  has  not  changed,  the  quantity 
WEIGHT  is  not  computed,  and  a message  is  written.  If  Wl  is  too 
small  (TAU  larger  than  the  last  entry  of  TAUT),  the  lower  bound  for 
Wl  is  tried  to  see  if  the  sign  of  the  residual  has  changed.  If  there  is 
a root,  the  iteration  continues.  If  not,  the  corrected  insulation  weight 
is  computed  at  Statement  14  (Reference  1,  p.  257,  Equation  (41)).  An 
additional  error  noted  occurs  when  no  convergence  has  occurred  be- 
fore MIT  iterations  (counted  by  IT),  in  which  case  this  fact  is  noted 
and  no  WEIGHT  is  computed.  The  weight  corrected  for  structural 
capacitance  must  be  ^ 0. 

5.  FINW1 


a.  Purpose 

Given  in  tabular  form  the  function  of  Reference  1,  p.  255,  FINW1 
computes  the  temperature  difference  ratio  (DV)  given  values  of  TAU 
and  R as  independent  variables. 

b.  Method 

FINW1  performs  a two-dimensional  table  look-up  using  the  independent 
variable  table  DVT  whose  rows  correspond  to  the  independent  variable 
array  TAUT  and  whose  columns  correspond  to  the  independent  variable 
arrat  RT.  Using  the  value  of  TAU,  two  table  look-ups  are  done,  the 
first  for  the  entry  m RT<  R,  the  second  for  the  first  entry  in  RT>  R. 
The  results  are  interpolated  linearly  in  R to  compute  DV,  If  R=RT(1), 
only  one  table  look-up  is  performed. 
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D.  SIGNIFICANT  EQUATIONS 


1.  MAIN  Program 


h (T)  = HWALLF(T)  = A27N  (T+460. ) + B27N  (T+460)2 

RADR  = EMIS.  9 4 

/TABL  + 460. \4 
RADA  = EMIS.  I 1203.  9 ) 

K = ZK1/3600. 

QR  & QC  from  RTBL  & QTBL 

qmax  = RQCMAX  = Max  (ERT-  QRt  + QCt  * QCMULT)  (Statement  733  0) 


t_  - RTQMAX  - time  RQCMAX  occurs  (Statement  7330) 

Hmax 


QRTOT 


■/_ 


TSTOP 

(QRt  + QCt'QCMULT)dt 

TIME(  1 ) 


, QR  from  RTBL  input  (State- 
ment 7335) 

QC  from  QTBL  input 


~ TSTOP 

QRT&T  = QRRA  = / (QR{.  ERT)  dt 
•'TIME(l) 


QR  from  RTBL  input  (statena^nt 


RQINT  = 


/RTQMAX  QR  from  RTBL 

(QRt  ' ERT  + Q'Ct  * QCMULT)dt  QC  from  QTBL 
TIME  (1) 


(Statement  7 335) 


QCMAX  = MAX  (QCt  * QCMULT) 


TQMAX  = time  QCMAX  occurs. 
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QT0T  = 


/ 


TST0P 

(QCt  * QCMULT)dt 


TIME  (1) 


QC  from  QTBL  (Statement  207) 


QINT  = 


/ 


TQM  AX 

(QC-QCMTJLT)dt, 


TIME  ( I ) 


QC  from  QTBL  input  (Statement  205) 


tt  = TI  t=  RTQMAX- 


2»  RQINT 
RQCMAX 


(Statement  208) 


HWABL  = HWALLF  (TAB L)  - enthalpy 
HWABR  = HWALLF  (TREAR)  - enthalpy 


. 1/2 

(ZK-RH0-CP  \ ( TAB  L- TEMPI)  + RADA 

QR  = 1.  82  l 2(TQMAX-TI)j 

(. AHR  - HWABL) 

HGMAX 


HGMAX  = enthalpy  from  HTBL  at  time  TQMAX  (Statement  6048) 


TTEST1  = TEMPI+3.3*  RQCMAX 


f 2 (RTQMAX  - TI)  \l/2 
j ZKSTR-R0ST- CP2DGj 


T TEST  2 = TEMPI  + 


(QT0T  ± QRRA) 
(W2DG*  CP2DG) 


(Statement  8003) 


QTREQT  = W2DG-CP2DG  (TREAR  - TEMPI) 

If  QR  (above)  <RQCMAX,  ablation;  nonablation 
Ablation  equations 

TIA  = Time  before  RTQMAX  that 
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QCMULT*  QCt 


{aHR  - HWABlI 

HGt  I 


1 


+ ERT*  RCt  - 


RADA 


50.01 


(State- 

ment 


307) 


where  QCt,  HGt,  RC^  are  from  the  tables  QTBL,  HTBL,  RTBL 
If  such  a time  is  not  found,  T1A  = TSTART 

tfa  = T2A  = time  after  RTQMAX  that  the  relation  for  T1A  holds. 

If  such  a time  is  not  found,  T2A  = TSTOP 


W„ 


n w Lj_ 

= WD0Tt  = (QCMULT*  QCt(AHR-““HG;  ) + ERT-  RCt  - RADA) 
CP  (TABL  - TEMPI)  + FCRD 

HWABL 

when  WD0Tt*  WSA^QCt*  QCMULT  (AHR  - ^Gt > 

when  the  above  is  not 


w,  = WDiTt  = (ERT- RCt  - RADA_  ^ when 

a t CP.  (TABL  - TEMPI)  tra«- 


QCt,  HGt,  and  RCt  are  from  tables  QTBL,  HTBL  , and  RTBL  at  time  t. 

When  TFCON  ^ TIME,  FCRD  in  above  equation  is 

TURB(4)  • TURB(l)  [tuRB(2)+TURB(3)*  (HGt  -HWABL)*  33.  86] 

+ [l  - TURB  (4)]  TURB(5)  [TURB(6)+TURB(7)(HGt-HWABL)*  33.  86] 

when  TFCON  >TIME,  FC0N  is  the  same  but  TURB  (1-7)  is 
replaced  by  LAM  (1-7).  TURB  and  LAM  are  input  tables,  which 
are  stored  as  the  first  and  second  rows  of  the  matrix  FC0N  (i,  j) 

When  TFC$N  ^ TIME, 

DEN0M  = TURB  (4)  * TURB(1)*HV1R  + [l- TURB (4)]  TURB  (5)  * HV2R 
When  TFCON  > TIME,  TURB(i), alone  are  replaced  by  LAM(i) 

When  TFCON  - TIME 

WSA  = |tURB(4)*  TURB(l)*  TURB(3)  + [l-TURB(4)]  • TURB(5)*  TURB(7)J 
x (HGt  7 HWABL)*  33.  86 


-61- 


393< 


when  TFC?>N>TIME,  TURB  (i)  above  are  replaced  by  LAM(i) 


Wa  = WA  = 


J T2A 

f WD0T  (t)  dt 
T1A 


(Statement  312) 


tad*  = TADJ  requires  the  computation  of  the  above  WD0T(j)  over  the 
tirri?e  interval  from  RTQMAX  to  T2A,  D0  loop  ending  at  6003, 

Each  increment  to  the  WA  integral  over  this  time  is  computed  (WA7), 
and  if  its  squared  inverse  is  individually  larger  than  the  quantity 

Cp  (T2A-TI)  / (.  8*  RH0-  ZK*  DT^),  DT  being  the  true  time  increment 

the  sum  WA7C  is  incremented  by  the  inverse  of  the  above  expression. 

If  the  integral  increment's  squared  inverse  is  - the  above  expression, 
WA7C,  is  not  incremented,  (loop  ending  6004) 

t 0.8  • ZK*RH0*DT2*WA7C  , _.T  , 

t , = TADJ  = T2A — , where  ZN  = the  number 

a-dj  CP*  ZN 


of  points  (separated  by  DT  time  increments)  between  T2A  and  RTQMAX. 
TST0P 

(Statement  326) 

TIME  ( 1 ) 


where  QDI1  = QCMULT*  QC^-QQQ,  QCt  from  input  table  QTBL. 


QQQ 


SO,  t - T1A,  t £ T2A 
QCMULT*  QCt  |aHR- 


-RADA  , TlA<t<T2A 


HG^  and  QC^.  from  input  HTBL  and  QTBL  at  time  t.  (Statement  325) 


HGT0T 


/.  TSTOP 

HGj,  dt 

TADJ 


(TST0P-TADJ) 


j HG|.  from  HTBL  at  time  1 
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qrt0ti  = 


dt. 


RCt  from  input  RTBL  (Statement  6373) 


This  ends  the  ablation  calculation.  The  nonablation  equations  are  as 
follow: 


QRT0T1  : 


/ 


TST0P 

RCt  dt,  RCt  from  input  RTBL  (Statement  3329) 
TSTART 


QC  = QT0T  (see  above) 


HGT0T  = 


f 

TI 


. TST0P  — n 

HG^dt  , HGt  from  HTBL.  at  time  t (Statement  404} 


(TST0P  - TI) 

This  ends  the  nonablation  section.  For  the  calculation  of  TR  between 
Statements  500  and  594,  see  main  program  write-up. 

tR  = TR  = | [zK-  RH0.  Cp]  1/2  (TREAR  - TEMPI)-  [zfc.  RH*.  CP- 

(TREAR.-TEMPI)2  + 4.RADR  ^QC(AHR  - 


* ERT.  QRT0T1)  ] 


1/2 


(2*RADR)  (Statement  599) 


If  the  slab  is  equilibrated  at  the  end  of  the  problem, 
f RH(fr-  Zk-  TR]  1/2 

(Statement  501) 


WINS  = WT  = cp 

Corrected 


= WEIGHT  = WT.  < 1-  (W2DG.CP2DG+WTB.CPBt  , > 
WINS  wji.iv_.rtj.  wi  <j  WT  CP 


WT0T  = WT0TAL  = WEIGHT  + WA  + WTB 
If  the  slab  is  not  equilibrated  at  the  end  of  the  problem,  the  weight  is 
found  as  follows  TSMAX  = T S R , computed  from  an  accelerated  New- 
ton-Raphson  iteration  for  the  polynomial  f(t)  = A-  TSR  + B*  TSR^  + 

C*  TSR  + D,  where  the  coefficients  are  a function  of  the  current  (itera- 
ted) insulation  weight.  (Statements  601  to  603) 

WINS  = WW -computed  by  subroutine  CURVE  based  on  value  of  TSS  during 
current  iteration  for  insulation  weight  (Statements  600  to  6604). 

Corrected  WINS  = WEIGHT  (computed  from  C0RFIT  subroutine)- 

^fiM]  1/2 

WT0T  = WT0TAL  = WEIGHT  + WA  + WTB. 


2.  Subroutine  CURVE 

- (TREAR- TEMPI)  f TSS  from  main  program  iteration 

ATS~  (TSS -460- TEMPI) 


A table  look  up  (TEUQ)  produces  a value  of  at/L2  from  TBE1,  and 
the  weight  is 


WW 


|Zk-RH0.(TST0P-TI) 

at/ 


cp  C)L  2>t 


from  table  look-up. 


DTM  = DTM  = 


© 


|(TSS  -460 
at/L  ^ 


TEMPI)  , 


from  TLUQ  look-up  at  current  at/L2 

at/L2 

3.  Subroutine  TEUQ  - 

No  significant  equations  (linear  interpolation  table  look-up). 

4.  Subroutine  C0RFIT 

DTREF  = (TSR  - TSI)  / (TSS-TSI) 
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TSR  = input  TREAR,  TSI  = input  TEMPI, 

TSS  = output  TSMAX 

TELL  = TST0F  - TI,  TST0P  - TSTART  5 2 -QTDUR 

= 2 -QTDUR  - TI,  TST0P- TSTART  > 2 -QTDUR 

QTDUR  is  computed  in  the  main  program  as  the  time  after  peak  con- 
vective heating  that  QCt  - . 01  • QCmax,  minus  TSTART. 

CONTAU  = (RH0  • ZKl-TLILr)/  (CP  -3600). 

C0NR  = (W2  ♦ CF2)/CP1 

TAU  = C0NTAU / (Wl)2 

R = C0NR  /Wl 

A method  of  false  position  is  used  with  Wl  changing  TAU  and  R computed, 
and  a table  look-up  done  in  FINW1  to  obtain  a temperature  difference  ratio, 
Wl  changing  until  this  ratio  is  sufficiently  close  to  DTREF.  At  that  time 
the  corrected  insulation  weight  is  set  equal  to  Wl. 

If  TAU  > 10. , WEIGHT  is  computed  as 

/ W2-CP2'  <TSR-TSI)\  , . 

Weight  = WW  (l  - WW-  CPI  .DTM ' W2,  CP2  being  the  structure 

weight  and  specific  heat;  TSR,  TSI  as  above,  DTM  the  average  temperature 
rise,  WW  and  CPI  the  heat  shield  uncorrected  weight  and  specific  heat. 

5.  Subroutine  FINW1 

No  equations,  two  dimensional  table  look-up. 


-65- 

G9?< 


V.  REFERENCES 


1.  RAD,  Mars -Venus  Capsule  Parameter  Study,  V.  I,  Introduction  and 
Analysis,  JPL  Contract  No.  950626,  Avco/RAD,  TR-64-1  (1964). 

2.  Brown,  J.E. , and  F.  A.  Shukis,  An  Approximate  Method  for  Design  of 
Thermal  Protection  System,  Contract  AF  33(6 16)-7483,  Avco/RAD  TM- 
62-3  (25  January  1962). 

3.  Carslaw,  H.S.,  andJ.S.  Jaeger,  Conduction  of  Heat  In  Solids,  2nd  edition, 
p.  282,  Oxford  Press,  London  (1959). 


-66- 

C-S8< 


PROGRAM  1885 


PRESSURE  AND  HEATING  DISTRIBUTIONS  (1885) 


CONTENTS 


I.  Introduction . 1 

A.  General  Description 1 

B.  Calculation  Model 6 

C.  Limitations . 23 

II.  Usage 24 

A.  18 85 A Input  Definitions 24 

B.  1885B  Input  Definitions 25 

C.  Input  Procedures 

D.  Output  Definitions 35 

E.  Sample  Problem 38 

F • Diagnostics 39 

III.  Computations 74 

A.  Block  Diagram 74 

B.  Symbols 74 

C . Equations . 81 

IV.  IBM  Routines 97 

A.  Program  Flow 97 

B.  Common  Storage 98 

C.  18 85 A Subroutines 104 

D.  1 8 85B  Subroutines 107 

E.  1885A  Main  Program 122 

F.  1885B  Main  Program 122 

G.  1885 A Significant  Equation 124 

H.  1885B  Significant  Equation 126 

V.  References  136 


7 


400< 


ILLUSTRATIONS 


Figure  1 Functional  Diagram  of  Program  1885  1 

2 Vehicle  Shape  Parameters 3 

3 Tension  Shell  and  General  Shape  Parameters 4 

4 Typical  Wind  Axes  Locations  for  Several  Angles 

of  Attack 7 

5 Translation  and  Rotation  of  Axes 8 

6 Oblique  Shock  Model H 

7 Pressure  Distribution  on  a Hemisphere  Cylinder 15 

8 Heating  Distributions  on  a Hemisphere  Cylinder 22 

9 Mass  Flow  Continuity  Model . 22 

10  Mass  Flow  Distribution  across  the  Shock  Layer  34 

11  Block  Diagram  for  Program  1885  75 

12  Program  Flow 97 


401< 


-IV- 


TABLES 


Table  I Partial  Table  of  Possible  Shapes 5 

II  Velocity  Gradient  Correlation  13 

III  Shock  Parameters  for  Blunt  Cylinder 13 

IV  Test  Criteria  for  Pressure  Method  Selection 16 

V Newtonian- Prandtl  Meyer  Match  Points 16 

VI  Prandtl-Meyer-Tabular  Data  of  P/PT 17 

VII  Shock  Stand  Off  Distance  (As  /y^)  for  Convex  Bodies 17 


—v — 


I.  INTRODUCTION 


A.  GENERAL  DESCRIPTION 

The  object  of  this  program  is  to  compute  the  pressure  distribution,  laminar 
heating  distribution,  turbulent  heating  distribution,  and  radiative  heating  dis- 
tribution at  arbitrary  angle  of  attack  for  axisymmetric  bodies.  The  resultant 
distributions  can  be  applied  as  multiplicative  factors  on  the  trajectory  data  of 
Program  1880,  yielding  the  local  pressure  and  heating  histories  at  a point  on 
the  body.  A general  functional  diagram  of  the  program  is  given  in  Figure  1. 
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Figure  1 FUNCTIONAL  DIAGRAM  OF  PROGRAM  1885 
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The  general  inputs  include: 


1.  The  pertinent  shape  parameters  describing  the  vehicle  geometry.  The 
shape  parameters  are  depicted  in  Figures  2 and  3 and  a partial  listing  of 
parametric  combinations  is  given  in  Table  I. 

2.  The  flight  conditions,  namely,  the  velocity,  ambient  temperature,  den- 
sity, and  atmospheric  composition 

3.  The  angles  of  attack  at  which  pressure  and  heating  distributions 
desired 

4.  The  option  to  consider  the  windward  and  leeward  meridians  as 
symmetric  or  two-dimensional  bodies 

5.  A control  on  the  boundary  layer  edge  conditions  by  specifying  the 
shock  angle  to  which  the  total  conditions  correspond  {temperature,  pres- 
sure, etc.  ) adiabatic  exponent  ys  is  computed. 

6.  A control  on  the  shock  shape  calculation  by  specifying  the  degree  of 
the  polynomial  used  to  approximate  the  mass  flow  distribution  across  the 
shock  layer 

7.  A control  on  the  radiation  heating  calculation  by  specifying  the  degree 
of  the  polynomial  used  to  approximate  the  radiation  heating  distribution 
across  the  shock  layer. 

The  general  outputs  include* 

1.  The  coordinates,  surface  distance,  slope,  and  curvature  of  points  on 
the  windward  and  leeward  meridians  for  each  angle  of  attack  (in  body  axes 
aligned  with  the  relative  wind  vector,  and  having  their  origin  at  the  stagna- 
tion point) 

2.  The  location  of  the  stagnation  and  sonic  points 

3.  The  pressure  distribution  as  a fraction  of  the  normal  shock  stagnation 
pressure 

4.  The  stagnation  point  convective  heating 

5.  The  sonic  point  turbulent  heating 

6.  The  laminar  and  turbulent  heating  distributions 

7.  The  local  Reynolds  number 
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SECTION 

1 NOSE  SPHERE 

2 Rsn  TORUS 

3 CONE  (SEE  FIGURE  3 FOR  ADDITIONAL  OPTIONS) 

4 Rac  TORUS 

5 CYLINDER 

6 FLARE 

7 FORE  Rs0 TORUS 

0 AFT  Rsn  TORUS 

9 AFT  CONE 

10  aft  SPHERE  (RaIOR  BASE  CRt) 
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Figure  2 VEHICLE  SHAPE  PARAMETERS 


TENSION  SHELL  OPTION  (SECTION  3} 


$-  TENSION  SHELL  INPUT  PARAMETER 

R3-  BASE  RADIUS  OF  TENSION  SHELL  (NOT  INPUT) 


S2Gifl3Gix.R"  GENERAL  SHAPE  INPUT  PARAMETERS 
n S 25 
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Figure  3 TENSION  SHELL  AND  GENERAL  SHAPE  PARAMETERS 
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8.  The  local  shock  standoff  distance  and  corresponding  wave  angle 

9.  The  radiation  heating  distribution. 

B.  CALCULATION  MODEL 

1.  Vehicle  Shapes 

Axisymmetric  vehicle  shapes  are  considered  by  prescribing  a number  of 
separate  conic  sections  which,  when  mated  together,  form  the  desired 
shape.  The  sections  allowed  are  spherical,  conical,  toroidal,  continuous 
flare(or  tension  shell),  as  shown  in  Figures  2 and  3 A general  form  for 
the  continuous  flare  is  permitted  as  an  option.  A maximum  of  nine  sep- 
arate sections  can  be  specified  at  one  time.  A minimum  of  two  (a  sphere) 
sections  can  be  specified.  Further  discussion  on  the  omission  of  various 
sections  is  given  in  the  section  on  usage.  Table  I lists  some  of  the  shapes 
which  can  be  studied. 

2.  Angle- of -Attack  Geometry  and  Axes 

The  angle  of  attack  is  measured  from  the  body  axis  of  symmetry,  and  is 
the  angle  between  this  body  axis  and  the  relative  wind  vector.  A new  set 
of  body  axes  are  created  at  each  angle  of  attack,  lying  along  the  wind  vec- 
tor and  orthogonal  to  it;  these  axes  are  designated  wind  axes.  Essentially, 
wind  axes  are  utilized  at  all  times,  but  only  at  a - 0,  180,'  does  this  result 
in  an  axisymmetric  geometry  about  the  relative  wind  vector  (except  for  a 
sphere).  The  origin  of  these  wind  axes  is  taken  at  the  stagnation  point, 
which  is  assumed  to  be  located  at  the  most  forward  point  on  the  body,  meas- 
ured in  wind  axes  as  shown  in  Figure  4.  At  angle  of  attack,  therefore,  there 
are  two  sets  of  body  coordinates;  one  for  the  windward  and  one  for  the  lee- 
ward meridian.  The  flow-field  calculations  are  in  general  taken  as  depend- 
ent on  the  local  body  coordinates,  slope,  surface  distance,  and  curvature, 
all  measured  in  wind  axes. 

A special  problem  area  arises  when  the  angle  of  attack  is  such  that  the 
stagnation  point  occurs  on  a straight  section  (e.  g.  cone  or  cylinder),  in 
which  case  the  stagnation  point  is  taken  at  the  midpoint  of  the  straight  sec- 
tion. Another  problem  area  is  that  of  a sharp  convex  corner.  In  general, 
sufficient  tori  sections  exist  to  preclude  the  occurrence  of  a sharp  convex 
corner;  however,  when  the  flat  base  section  (BASE)  is  specified,  then  a 
sharp  convex  corner  can  exist  between  the  aft  cone  (AFTC0N)  and  the  base 
(BASE). 

The  calculation  model  for  the  translation  and  rotation  of  the  axes  is  shown 
in  Figure  5.  The  stagnation  point  is  located  by  maximizing  xQ  where 

xa  = y os  Sina  “xoscosa  * 
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Figure  4 TYPICAL  WIND  AXES  LOCATIONS  FOR  SEVERAL  ANGLES 
OF  ATTACK 
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COORDINATE  TRANSFORMATION  EQUATIONS: 
YbU  ) = (Yo-Yos)  COSa  + (Xo-Xos)  SINa 
Xb(  a ) = (X0  — Xog)  COSa - (Y0 - Yos)  SINa 
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Figure  5 TRANSLATION  AND  ROTATION  OF  AXES 
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Interpolation  formulas  are  provided  for  each  section  to  determine  the  lo- 
cation of  the  stagnation  point  precisely.  Each  section  is  uniformly  divided 
into  a number  of  N divisions  of  surface  distance,  where  N is  an  input  num- 
ber for  each  section.  The  coordinates  of  the  N divisions  are  transformed 
for  each  angle  of  attack  as  shown  in  Figure  5.  In  addition,  the  local  slope 
is  transformed  to  be  the  slope  with  respect  to  the  wind  axis  and  the  surface 
distance  of  each  point  is  adjusted  for  the  newly  found  stagnation  point. 

3.  Sonic  Point  Location 


The  sonic  point  location  is  necessary  to  aid  in  determining  the  pressure 
distribution  m the  subsonic  region  and  the  stagnation  point  velocity  gra- 
dient and  shock  standoff  distance.  The  calculation  model  assumes  that  the 
sonic  point  location  occurs  at  the  smallest  value  of  (xb,)  where 

Ys 


sin2  6 . = 


The  sonic-point  relationship  given  above  assumes  that  the  local  slope  where 
the  flow  first  becomes  sonic  is  given  by  Newtonian  theory.  The  adiabatic 
exponent  (ys)  may  either  be  an  input  value  or  is  calculated  within  the  pro- 
gram, as  discussed  in  the  following  section.  The  precise  (xb,  yb)  coor- 
dinates corresponding  to  the  sonic  point  angle  are  interpolated. 

4.  Adiabatic  Exponent  (ys) 

An  adiabatic  exponent  (ys)is  utilized  based  on  the  density  ratio  across  a 
normal  shock  at  the  specified  flight  conditions  using  the  strong  shock  ap- 
proximation; 

ft/Pa  +1 

Vs  Pw4>a  - 1 

The  derivation  of  the  above  result  from  the  normal  shock  equations  is  pre- 
mised on  the  thermodynamic  relationship  that 


h = 


Ys 

(Y~  1) 


P 

P 


Since  for  isentropic  flow, 
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it  can  be  seen  that  if  (ys)is  assumed  constant  along  a streamline,  then 


ys-1 


The  adiabatic  exponent  noted  above  is  only  an  approximation  for  determin- 
ing the  speed  of  sound,  and  hence  the  Mach  number  as. 


Comparisons  of  the  adiabatic  exponents  for  the  enthalpy-pressure  and  for 
density- pres  sure  are  given  in  Reference  1.  A single  adiabatic  exponent  is 
used  freely  to  compute  all  conditions  along  a streamline,  including  the 
Pr an dtl- Meyer  variable  in  supersonic  flow. 

5.  Oblique  Shock  Calculations 

The  oblique  shock  calculation  employs  Program  1883  as  a subroutine.  The 
conditions  behind  an  oblique  shock  are  needed  to  perform  the  shock  shape 
and  radiative  heating  calculations.  An  iteration  is  performed  using  the  en- 
thalpy and  pressure  equation,  where 


The  calculation  model  is  depicted  m Figure  6.  The  flight  conditions  are 
specified;  hence  the  molecular  weight  of  the  atmosphere  (M)  and  the  velo- 
city (V),  the  ambient  pressure  (Pa)  and  density  (p  ) , and  the  total  enthalpy 
(H)  are  all  known.  An  initial  estimate  on  (pa/p ^ is  made  and  the  enthalpy 
and  pressure  computed  by  the  equations,  Program  1883  computes  the  den- 
sity ratio  (pa  /pw)  for  these  conditions  and  the  enthalpy  and  pressure  are 
recomputed,  tested  for  accuracy,  and  further  iterated  if  necessary. 
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6.  Stagnation  Point  Velocity  Gradient 


The  calculation  of  the  velocity  gradient  on  the  windward  and  leeward  me- 
ridians is  performed  as  follows: 

a.  If  no  straight  section <o)  exists  between  0 < Sb<s£, evaluate 
/ 

(du/ds) via  Table  II  (from  Reference  2),  letting  xp  yT  correspond  to  the 
sonic  point  values. 

b.  If  a straight  section  occurs  between  0 <sb  < Sb*  , and  if 


xh*  < A 
d — so 

then, 

dU  _V_  I 8_  Pa 

dS  Rwo  N3  Ps 

(Reference  h,  Page  l6l) 


Otherwise  (dU/dS  ) is  evaluated  from  Table  II  withx-j-j  y^.  corresponding  to 
the  coordinates  of  meridian  at  the  start  of  the  straight  section. 

7.  Subsonic  Pressure  Distribution (S  £ S*) 

Two  pressure  calculation  methods  are  possible  within  the  program,  New- 
tonian or  a polynomial  distribution.  The  choice  of  either  depends  on  the 
following  tests: 
dfl 

<0  at  all  points  0 < Sb  < Sb 

and,  . * 

1 — sin  u l. 

* / * b 

x — “ 

cosdh 

d$ 

b.  =0  at  one  point  or  more  0 < < S^,  and 

d 6 

< 0 at  Sl  = 0 

dsb  b 

If  either  of  the  tests  is  satisfied,  the  Newtonian  method  is  used;  if  not,  the 
polynomial  distribution  is  used.  The  polynomial  distribution  is  of  the  form 

p*  ' , 

— - 1 + Cj  sg  ♦ C2sj 

S 
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where  the  coefficients  Cj  and  C2  are  found  by  the  conditions 


8.  Pressure  Distributions  for  Sb  > 

The  pressure  distribution  downstream  of  the  sonic  point  (S^  > S^)  is  found 
by  selecting  one  of  several  possible  methods.  The  possible  methods  in- 
cluded in  the  program  are: 

a.  Newtonian  theory 

b.  Constant  pressure 

c.  Entropy  Layer  Theory 

d.  Prandtl— Meyer 

The  choice  of  the  method  to  be  used  at  each  succeeding  division  (or  section), 
along  the  meridian  is  dependent  on  tests  of  curvature,  slope,  and  pressure 
at  the  last  point  calculated.  The  test  criteria  are  summarized  in  Table  IY. 
The  MP  data  are  given  in  Table  V. 

The  entropy  layer  theory  is  described  in  References  5 and  6 and  provision 
is  included  for  considering  the  meridian  as  that  of  an  axisymmetric  or  two- 
dimensional  body  by  input  of  the  sentinel  XJ  * 1.  or  XJ  = 0,  , respectively. 

A limit  is  placed  on  the  pressure  distribution  computation  m that  when  the 
pressure  first  reaches  the  ambient  value,  then  the  pressure  is  kept  con- 
stant at  this  value  over  the  remainder  of  the  body. 

The  Prandtl-Meyer  calculation  is  performed  via  table  lookup  using  the 
data  in  Table  VI,  obtained  from  Reference  7. 

A comparison  of  the  pressure  distributions  obtained  via  Program  1885 
with  experimental  data  for  a hemisphere  cylinder  is  shown  m Figure  7. 

9.  Total  Pressure  Option 

For  bodies  of  small  bluntness,  an  option  is  provided  to  compute  the  bound- 
ary layer  edge  conditions  corresponding  to  flow  through  a specified  oblique 
shock  as  discussed  in  Reference  9.  The  static  pressure  distribution  is  as- 
sumed to  be  unchanged.  A shock  wave  angle  other  than  90  degrees 
is  specified  as  input,  for  which  the  new  total  conditions  are  computed 

-14- 
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Figure  7 PRESSURE  DISTRIBUTION  ON  A HEMISPHERE  CYLINDER 


TABLE  VI 


PRANDTL  - MEYER  - TABULAR  DATA  FOR  P/PT 


V 

y - 1.  is 

1.  2 

1.3 

1.4 

0 

0.  5744 

0.  5645 

0. 5457 

0.  5283 

4 

0.4567 

0.  4451 

0.4230 

0 4029 

8 

0. 3867 

0.  3743 

0.  3511 

0.3298  t 

12 

0.3292 

0 3165 

0.  2927 

0.  2712 

16 

0, 2801 

0. 2673 

0. 2436 

0 2222 

20 

0. 2375 

0. 2249 

0. 2016 

0 1808 

24 

0. 2006 

0 1882 

0 1656 

0 1459 

28 

0. 1685 

0 1564 

0 1352 

0.1165  - 

32 

0. 1406 

0. 1294 

0 1093 

0.09202 

36 

0. 1174 

0. 1061 

0. 08747 

0. 07176 

40 

0. 09606 

0. 08635 

0. 06934 

0. 05519 

44 

0. 07860 

0 07069 

0. 05433 

0. 04181 

48 

0.06381 

0. 05577 

0.04206 

0.03116 

52 

0. 05144 

0. 04421 

0. 03214 

0.02280 

56 

0. 04114 

0. 03471 

0. 02424 

0.01635 

60 

0 03296 

0. 02698 

0. 01800 

0.01148 

64 

0.02565 

0. 02078 

0 01317 

0.00786 

68 

0.01998 

0, 01580 

0.00946 

0. 00524 

72 

0.01543 

0, 01189 

0. 00668 

0. 00339 

76 

0.01181 

0.  00883 

0.00462 

0. 00212 

80 

0. 00894 

0.  00649 

0. 00313 

0.  00127 

84 

0. 00670 

0. 00470 

0- 00207 

0.00073 

88 

0 00497 

0. 00335 

0. 00133 

0. 00040 

92 

0. 00364 

0 00237 

0 00083 

0.  00020  ' 

96 

0 00264 

0 00163 

0 00050 

0. 00010 

100 

3. 00189 

0. 00111 

0 00029 

0 00004 

104 

0 00134 

0. 00074 

0. 00016 

0. 00002 

108 

0.  00093 

0.  00049 

;0.  00009 

o.o 

112 

0.00064 

0.00031 

0 00004 

0 0 

116 

0. 00044 

0. 00020 

0. 00002 

0.  0 

120 

0. 00029 

0. 00012 

0. 00001 

0.0 

TABLE  VIX 


SHOCK  STAND  OFF  DISTANCE  (As/yx  ) FOR  CONVEX  BODIES 


; xT/yT 


0 

0.1 

0.2 

0.3 

0 4 

0.  02 

0.21 

0. 135 

0.070 

0 032 

0.020 

0 04 

0.275 

0.190 

0. 115 

0.  065 

0 . 040 

0.  05 

0.30 

0 210 

0 135 

0.  080 

0.050 

0.  06 

0 . 32 

0.235 

0 155 

0 095 

0 . 060 

0 08 

0 357 

0. 272 

0.  192 

0 125 

0 080 

0. 10 

0.387 

0 305 

0 225 

0. 150 

0.100  ' 

0.  12 

0.415 

0.335 

0 255 

0 177 

0.118 

0.  16 

0 . 462 

0 390 

0.310 

0.  232 

0.157 
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( P*p  p-p  Tj  ) and  for  which  a new  adiabatic  exponent  (y)  is  found,  these  quan- 
tities are  then  used  to  calculate  the  necessary  flow  variables  needed  to  com- 
pute the  convective  heating. 

10.  Stagnation  Point  Convective  Heating 

The  stagnation  point  heating  is  computed  using  the  correlations  of  Reference 
10  for  air  The  stagnation  point  velocity  gradient  on  which  the  heating  is 
based  depends  on  what  section  of  the  body  the  stagnation  point  occurs  If 
the  stagnation  point  occurs  on  a spherical  cap,  then  the  velocity  gradient, 
for  the  purposes  of  computing  heat  transfer,  is  taken  as  the  average  of  the 
windward  and  leeward  value.  If  the  stagnation  point  occurs  on  a torus,  cone, 
or  cylinder,  the  velocity  gradient,  for  the  purposes  of  computing  the  heating, 
is  taken  as  the  average  of  the  value  found  above  and  the  value  corresponding 
to  a cylinder  of  radius  yos  /sm  a. 

The  stagnation  point  heating  expression  from  Reference  10  is: 


The  Lewis  and  Prandtl  numbers  are  input  as  well  as  the  exponent  (a). 

The  dissociation  enthalpy  (hD)  is  computed  m the  oblique  shock  subroutine. 

The  stagnation  point  heating  to  a three  dimensional  stagnation  point  has  been 
derived  by  Reshotko*  1 . The  result  indicates  that  the  heating  can  be  found 
in  a similar  way  as  in  the  case  of  the  axisymmetric  stagnation  point,  except 
that  the  velocity  gradient  is  given  by 


where  (dv/  dy)  and  (dw/dz  ) are  the  gradients  along  the  two  principal  radii  of 
curvature.  In  axisymmetric  flow  the  two  velocity  gradients  are  equal,  where- 
as, m two  dimensional  flow,  one  is  zero,  hence,  the  heating  to  a cylinder 
is  yjl/2  of  that  to  a sphere  of  the  same  radius. 

The  velocity  gradient  dU /dS  must  be  singly  valued  for  both  the  leeward  and 
windward  meridian  When  the  stagnation  point  is  on  a spherical  cap,  the 
velocity  gradient  is  approximated  as- 

dU  1 / dU\  1 / dU  \ 

dS  2 \dS/  ieewar(j  2 \dS  win{iward 


dU  /dv 

dS  l dy 


-18- 


420< 


When  the  stagnation  point  is  on  a torus  or  straight  section,  the  velocity- 
gradient  is  approximated  as 


where  the  last  term  on  the  right  is  the  velocity  gradient  for  a cylinder  (Re- 
ference 4)  of  radius  (yQS/sina  ). 

1 1 . Laminar  Heating  Distribution 

The  laminar  heating  equations  are  based  on  Reference  9 for  air  The  dis- 
tribution is  obtained  by  normalizing  the  results  with  the  zero  angle  of  attack 
stagnation  point  value . An  option  is  provided  to  calculate  the  heating  along 
the  windward  and  leeward  meridians  assuming  either  a two-dimensional  or 
axisymmetric  body.  The  calculation  includes  the  affect  of  local  pressure 
gradient  using  the  approach  of  local  similarity,  however,  unfavorable  pres- 
sure gradients  (e  g.  , along  a tension  shell)  are  not  accounted  for,  m which 
case  the  pressure  gradient  term  is  placed  equal  to  zero. 


The  laminar  distribution,  generalized  for  either  two-dimensional  or  axial 
symmetric  flows,  is  given  by 


qL  yjJ  phlih  U£  (1  + 0.096  yffi 

3ls 


(1.068)  sfTJ 


where, 


l 


Pb^bueyb  ds  > z3  = 2 


d In  $ 


is  velocity  gradient  for  either  windward  or  leeward 
meridian. 


The  tabulated  output  references  the  heating  to  the  zero  angle -of- attack 
stagnation  point  values  and  so, 

3L  qL  qLS 

(?Ls)  * . 0 ,LS  (,LS)«  = 0 
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12.  Turbulent  Heating 


The  turbulent  heating  calculation  utilizes  the  flat  plate  reference  enthalpy 
method  of  Reference  12.  The  inputs  include  the  Prandtl  number  and  a cor- 
rection term  for  axial  symmetry  if  J=l.  (XJ  = l.).  The  output  is  normalized  with 
respect  to  the  zero  angle -of -attack  sonic  point  value. 

13  Radiation  Heating 

based  on  the  following  equation: 

profile  across  the  shock  layer  as 

and  where  lb  and  are  the  radiation  intensities  at  the  body  and  at  the  shock 
along  a line  normal  to  the  body  at  the  coordinates  xb  , yb  . The  exponent  (m) 
is  an  input  quantity  The  intensities  are  computed  by  the  subroutine  con- 
taining Program  1883.  The  quantities  {^ , ) are  computed  from  the  shock 

shape  as  described  m the  following  section.  The  laminar,  turbulent  and 
radiative  heating  distributions  on  a hemisphere  cylinder  are  shown  in 
Figure  8,  as  computed  by  Program  1885. 

14.  Shock  Standoff  Distance 

The  shock  shape  calculation  uses  the  approach  of  Reference  3 to  compute  the 
shock  standoff  distance  and  the  shock  curvature  at  the  stagnation  point.  The 
value  of  the  shock  standoff  distance  at  the  stagnation  point  depends  on  whether, 

a.  j = 0,  1 

dd  * 

b*  < ° * ° “ Sb  < Sb 

c-  xb  > Aso  • 

d e * 

For  ) * 1,  and  if— j-g-<0  for  0 5Lsb<sb  > then  Table  VII  is  utilized  with  xx  = 

* * fdd  \ * 

xb  » yT  = yb  ^ a straight  section^j-  = 0j  occurs  at  any  point,  0 <lSb<Sb  , 

and  if  xb  > Aso  , then  utilize  Table  VII,  and  Xx  “ xbb  > YT  = ybb  where  *bb 
and  ybb  are  the  coordinates  at  the  start  of  the  straight  section  However, 
if  x*b  < Aso  , then  utilize  Table  VII  with  xT  = xb  , yT  = yb  an^  As  ~ Aso"  xb  • 

For  j = 0,  and  if  d0  < 0 between  0 Sb  < Sbthen, 


The  radiation  heating  model  is 

l~  m 1 

9r  ~~  (_m  + 1 Ib  + m + 1 

where  (n0  defines  the  radiation 
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A s = Pa/PsF 


(Reference  4) 


where , 


If 


F = 


i£  = 0 

dS 


at  any  point  0 -<Sb  < Sb  , and  if  xb  £-Aso 


0.25 


where. 


(Reference  4) 


evaluate  A as  noted  above . However , if  x£  < Ago , evaluate  As  as  noted 
above  but  with 


sia  a 


15  Shock  Curvature  at  Stagnation  Point 

Following  an  approach  similar  to  that  of  Reference  3,  the  shock  is  assumed 
to  be  of  constant  curvature  between  the  stagnation  and  sonic  points.  By 
geometry  the  radius  of  curvature  is  a function  of  the  shock  standoff  distance 
at  the  stagnation  and  at  the  sonic  points  By  continuity  of  mass  flow,  the 
standoff  distance  is  further  related  to  the  radius  of  curvature  and  hence  the 
shock  wave  is  determined.  The  continuity  is  invoked  by  estimating  the  unit 
mass  flow  distribution  along  a normal  ($“to  the  body  as 


pV  cos  (0WL  - 0b) 


(p  U)e  + [pUw  cos  (%L  - 0b)-(pU)e] 


n 


as  depicted  m Figure  9. 


The  exponent  n is  an  input  quantity.  The  conditions  at  the  shock  wave  (sub 
w)  are  found  via  the  oblique  shock  computations . 


16.  Shock  Shape 

The  shock  shape  is  assumed  to  have  the  form 


Yw2  = 2 Rw  (Xw  + As)  + B (Xw  + As)2 

The  value  of  rw  (the  shock  wave  curvative  at  the  stagnation  point)  is  found  as 
described  in  Section  15.  above.  The  coefficient  (B)  is  found  by  satisfying  con- 
tinuity at  the  first  point  where  0b  < 0.  The  continuity  check  involves  the  input 
of  the  exponent  (n)  described  above  and  the  choice  of  the  flow  index  j = 0,  1 
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As  options,  the  quantities  As , Rw,  B can  be  input  for  the  windward  and  lee- 
ward meridians  and  varied  for  each  angle  of  attack 

C.  LIMITATIONS 

Program  1885  was  developed  primarily  for  determining  the  pressure  and  heating 
distribution  for  preliminary  design  purposes  To  handle  the  wide  range  of  con- 
figurations and  the  whole  range  of  angle  of  attack,  within  a reasonably  sized  and 
quick  program,  the  approach  selected  was  to  utilize  simple  but  powerful  analy- 
tical techniques.  The  techniques  m general  are  based  on  the  nature  of  the  phy- 
sics of  the  problem  and  should,  m general,  yield  useful  initial  predictions  The 
limitations  which  can  be  clearly  identified  include: 

1 . Separated  flow  effects  are  not  considered 

Experimental  results  of  Larson^  for  laminar  and  turbulent  flows  have  shown 
that  the  average  heat  transfer  for  the  separated  laminar  boundary  layer  was 
found  to  be  56  percent  of  that  for  the  equivalent  attached  laminar  boundary 
layer,  independent  of  Mach  number  and  Reynolds  number  m agreement  with 
Chapman1  theoretical  results.  Average  turbulent  heating  for  the  separated 
case  was  found  to  be  about  60  percent  of  that  for  the  equivalent  attached  boun- 
dary layer,  but  a trend  was  observed  where  the  reduction  in  heat  transfer 
increases  with  increasing  Reynolds  number. 

2 Three-dimensional  flow  effects  are  not  considered,  except  m a minor 
way  for  the  stagnation  point  heating  as  the  calculation  models  presume,  m 
general,  that  the  flow  field  is  either  axisymmetric  or  two-dimensional. 

3 The  convective  heating  distributions  are  based  on  relationships  developed 
for  air 

4.  The  viscosity  table  is  for  nitrogen. 

5.  The  shock  shape  and  radiation  predictions  depend  on  a priori  knowledge 
of  (m)  and  (n)  which  are  important  in  determining  the  distributions  of  mass 
flow  and  radiation  intensity  across  the  shock  layer.  These  inputs  can  be 
adjusted  so  as  to  calibrate  the  program  with  more  detailed  numerical  cal- 
culations or  with  experiment. 

6.  The  effects  of  shock  interactions  on  the  tension,  general,  and  flare- 
shaped bodies  are  not  considered 

7.  Perfectly  sharp  nosed  shapes  cannot  be  considered. 

8.  Angle -of -attack  conditions  leading  to  attached  shocks  cannot  be  consid- 
ered. 
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II.  USAGE 


A.  1*8 85 A INPUT  DEFINITIONS 

Due  to  the  size  of  the  program,  it  was  necessary  to  divide  the  program  into  two 
parts,  18 85 A and  1885B.  Program  18 85 A computes  all  the  oblique  shock  data 
necessary  for  the  heating  and  pressure  distribution  calculation.  Program 
1885B  may  be  run  separately  provided  tabular  oblique  shock  data  is  input,  to 
replace  what  would  otherwise  be  computed  by  the  1885A  Program. 


The  inputs  for  the  1885A  Program  are  given  initially. 


Name 

Preset 
V alue  s 

Symbol 

Parameter 

Units 

CASE 

0. 

Identification  number  of  the 
form  XX.  XX. 

~ 

DATE 

4.  01 

Identification  number  of  the 
form  XX.  XX. 

— 

DEDAL 

2. 

Calculation  interval  of  oblique 
shock  data. 

degrees 

MEM0 

0. 

Identification  number  of  the 
form  XX.  XX. 

RH0A 

0. 

Pa 

Atmospheric  density. 

slugs /ft3 

TA 

0. 

Atmospheric  temperature. 

Kelvin 

y 

0. 

V 

Flight  velocity. 

ft/ sec 

XA 

o. 

XA 

Mole  fraction  argon. 

— 

xc 

0. 

XC 

Mole  fraction  carbon  dioxide. 

— 

XN 

0. 

% 

Mole  fraction  mtrogen. 

- 

X0 

0. 

xo 

Mole  fraction  oxygen. 

— 

XPLAST 

0. 

Print  out  sentinel  for  all 
thermo  chemical  data  at  each 
shock  angle. 
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Name 

Preset 
V a lue  s 

Symbol 

Parameter 

Units 

ILAST 

0. 

If  > 0. , tape  8 is  rewound  at 
the  end  of  the  case.  ILAST 
should  normally  be  set  >0 
only  for  the  last  case  of  a run. 

" 

INST0P 

1. 

Radiation  intensity  below  which 
the  equilibrium  problem 
is  not  solved. 

Btu/ft3 

PRTAB 

1. 

If  >0.,  will  print  tables  of  shock 
data. 

— 

PRTAPE 

1. 

If  >0.,  the  array  TABLE  and 
selected  1885 A input  are  written 
on  Tape  8 for  linkage  with  an 
1885B  run. 

XPEVER 

0.  . 

If  >0. , will  print  all  thermo - 
chemical  data  for  every  itera- 
tion for  each  shock  angle. 

B.  1885B  INPUT  DEFINITIONS 


Name 

Preset 

Values 

Symbol 

Parameter 

Umts 

ALPHA 

0. 

a 

Array  of  angles  of  attack.  Max 
number  is  10,  of  which  the 
first  must  be  0. 

degrees 

BETA 

0. 

ft 

Tension  shell  angle. 

degrees 

BSH0CT 

10  by  2 matrix  of  values  of 
the  shock  parameter  if  the 
shock  shape  is  input.  The 
first  column  (1-10)  corre- 
sponds to  each  a on  the  wind- 
ward side,  the  second  column 
(11-20)  to  each  a on  the  lee- 
ward side.  See  DELS  and  RW. 

CASE 

0. 

CASE  number  for  identifica- 
tion, of  form  XXXX.  0. 

— 
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Name 

Preset 

Values 

Symbol 

Parameter 

Units 

C0MQRD 

0. 

Shock  shape  sentinel;  if  0., 
no  shock  shape  and  radia- 
tion is  to  be  computed,  > 0 
otherwise. 

DATE 

4.  01 

DATE  number  for  identifi- 
cation of  form  X.  XX 

— 

DELT 

A.s 

An  array  of  at  most  10  values 
of  the  shock  detachment  dis- 
tance As,  one  for  each  a . It 
is  to  be  specified  if  the  shock 
shape  is  input.  See  BSH0CT 
and  RW. 

feet 

DN2 

0.  0001 

Lower  limit  for  accuracy  in 
integrating  d(Pe/Ps)/dx  by  the 
entropy -layer  formulation. 

***■ 

DTDSTB 

(dO/dS)b 

Array  of  at  most  25  values  of 
(dd/dS)^  for  the  general  shape 
option. 

rad /ft 

ENTH 

0. 

hA 

Ambient  enthalpy  when  shock 
gas  dynamics  data  are  input, 
rather  than  from  1885A.  See 
TABLE,  RH0A,  XA,  XC,  XN, 
X0,  TA,  V,  PRES,  XM,  MACH, 
HDHS90,  and  TAPE. 

ft2/sec^ 

GAMS0 

0. 

ys 

Value  of  adiabatic  exponent  at 
the  stagnation  point  if  it  is 
different  from  the  1885A  data, 
or  if  1885A  is  not  used.  If  = 
0,  1885A  or  TABLE  (1,  5) 
value  is  used. 

HDHS90 

0. 

HD/HS 

Ratio  of  dissociation  enthalpy 
to  stagnation  enthalpy,  specify 
when  1885A  is  not  used. 

— 
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Name 

Preset 

Values 

Symbol 

Parameter 

Units 

ILAST 

0. 

If  > 0. , the  tape  prepared  by 
18 85 A will  be  rewound.  It 
must  be  > 0 for  the  last  case 
if  1885A  data  are  used,  and  if 
> 0 for  an  intermediate  1885B 
case  the  gas  dynamics  data  of 
the  first  1885A  case  will  be 
used,  and  the  sequence  of 
1885A-1885B  cases  regener- 
ated. 

X0TBL 

0. 

M.  ^ 1. , the  a = 0 body  geo- 
metry data  will  be  printed  in 
the  output. 

-- 

LC 

0. 

LC 

Cylinder  length. 

feet 

LE 

0. 

L 

Lewis  number. 

- 

LX 

0. 

Lewis  number  exponent. 

- 

MACH 

0. 

M 

Mach  number,  specify  if 
1885A  is  not  used.  ' 

- 

MEM0 

0. 

MEM0  number  for  identifi- 
cation of  form  X,  X. 

- 

MM 

0. 

m 

A 10  by  2 matrix  of  exponents 
on  the  radiation  polynomial, 
specified  like  BSH0CT  above. 

-- 

N 

0. 

An  array  of  at  most  10  numbers, 
each  of  which  is  the  number  of 
increments  to  be  used  on  the  i^ 
body  section.  For  Section  3,  i.  e. 
N(3),  XX.  1,  XX.  2 and  XX.  3 are 
the  number  of  increments  for 
cone,  tension  shell,  or  general 
shape,  respectively.  For  Sec- 
tion 10,  i.  e.  N(10),  XX.  1,  and 
XX.  2 are  the  number  of  incre- 
ments for  spherical  cap  or  flat 
base,  respectively. 
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Name 

Preset 
V alue  s 

Symbol 

Parameter 

Units 

NALPHA 

0. 

Number  of  a’s  in  the  ALPHA 
array. 

-- 

NN 

0. 

n 

A 10  by  2 matrix  of  exponents 
on  the  mass  flow  polynomial. 
Specified  like  BSH0CT  above. 

PN 

0. 

a 

Prandtl  number. 

-- 

PRES 

0. 

PA 

Ambient  pressure,  specified 
when  1885A  is  not  used. 

lb/ ft  ^ 

RA 

0. 

Ra 

Aft  cap  radius. 

feet 

RB 

0. 

rb 

Flare  and  aft  cone  base  radius. 

feet 

RC 

0. 

RC 

Cylinder  and  cone  base  radius. 

feet 

RH0A 

0. 

Pa 

Atmospheric  density.  Speci- 
fy when  1885A  is  not  used. 

slugs /ft^ 

RN 

0. 

% 

Nose  radius. 

feet 

RSB 

0. 

rsb 

Toroidal  radius  at  aft  cone. 

feet 

RSC 

0. 

Rsc 

Toroidal  radius  at  base  of 
cone. 

feet 

RSN 

0. 

rsn 

Toroidal  radius  aft  of  nose. 

feet 

RT 

0. 

Base  truncation  radius. 

feet 

RTBL 

0. 

Yi 

Array  of  ordinates  for  general 
shapes,  maximum  25  points. 

feet 

RW0 

Rw 

A matrix  of  at  most  10  by  2 
numbers  which  are  bow  wave 
radii,  specified  like  BSH0CT 
above.  If  any  RW(i,  j)  for  an 
a and  windward  or  leeward 
meridian  is  specified  < 0,  it 
is  assumed  that  DELT, 
BSH0CT,  and  RW  are  to  be 
computed  by  the  program  for 
use  on  the  shock  shape  and  radia- 
tion computations. 

feet 
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Name 

Preset 

Values 

Symbol 

Parameter 

Units 

TA 

0. 

Ta 

Ambient  temperature,  specify 
if  1885A  is  not  used. 

Kelvin 

TABLE 

A matrix  of  at  most  46  by  13 
numbers,  each  of  whose 
columns  is  a corresponding 
column  from  1885A.  For 
example,  TABLE  (1-46)  = 
THWj,  TABLE  (47-92)  = 

RW/RAj, TABLE 

(553-598)  = IB^  See  1885A 
output.  Specify  m the  same 
order  as  1885A,  and  only 
when  1885A  is  not  used. 

TAPE 

1. 

If  > 0,  1885A  input  is  read 
in  from  A2.  If  < 0,  shock 
gas  dynamics  data  is  assum- 
ed to  be  program  input. 

TB 

0. 

Body  temperature. 

Kelvin 

THA 

0. 

Aft  cone  angle. 

degrees 

THB 

0. 

Ob 

Flare  angle. 

degrees 

THC 

0. 

Oc 

Fore  cone  angle. 

degrees 

THE TAT 

0. 

0Tt 

Shock  angle  for  stagnation 
conditions.  Used  only  if 
TT  < 0. 

degrees 

THN 

0. 

% 

Nose  cap  angle 

degrees 

TH2G 

0. 

*2 

Angle  at  first  point  of 
general  shape. 

degrees 

TH3G 

0. 

h 

Angle  at  last  point  of 
general  shape. 

degrees 
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Name 

Preset 
V alue  s 

Symbol 

Parameter 

Units 

TT0 

0. 

Total  pressure  sentmal.  If  < 
0 uses  normal  shock,  if  >0, 
Pt,  TT,  pt  and  ys  come 
from  shock  gas  dynamic  data 
at  THW  = THE  TAT  (above). 

U*P2 

0,001 

Upper  limit  for  accuracy  m 
integrating  <I(Pe/Ps)  by  the 

entropy-layer  formulation. 

V 

0. 

V 

Flight  velocity,  specify  if 
1 885A  is  not  used. 

ft/  sec 

XA 

0. 

XA 

Mole  fraction  of  argon  in 
atmosphere.  Specify  if 
1885A  not  used. 

-- 

XC 

0. 

XC 

Mole  fraction  of  C0l^  in 
atmosphere.  Specify  if 
1885A  not  used. 

-- 

XJ 

0. 

) 

j 

A 10  by  2 matrix  of  flow 
field  indixes,  1 = axi sym- 
metric, 0 = two  dimensional. 
Specify  like  BSH0CT  above. 

XM 

0. 

M 

Mean  molecular  weight  of 
-atmosphere,  specify  if 
1885A  is  not  used. 

“*■ 

XN 

0. 

XN 

Mole  fraction  of  N2  in 
atmosphere.  Specify  if 
1885A  not  used. 

X0 

0. 

X0 

Mole  fraction  of  02  :n  atmos- 
phere. Specify  if  1885A  not 
used. 

XTBL 

0. 

Xi 

An  array  of  at  most  25  points 
which  are  the  X^  for  the 
general  shape. 

feet 
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INPUT  PROCEDURES 


I.  Vehicles  Section  Specification  (refer  to  Figures  2 and  3). 

The  vehicle  sections  are  identified  as  follows: 

Section  1 --  Nose  sphere  - Specify  N (1)  followed  by  number  of  points 
desired,  i.  e,,  if  8 points  are  desired,  specify  N (1)  = 8.  Specify  as 
input  RN,  THN,  Section  1 cannot  be  omitted. 

Section  2 --  Toroidal  section  following  nose  cap.  If  present,  specify 
N (2)  followed  by  number  of  points  desired.  Specify  also  RSN. 

Section  3 --  Three  options  existing  for  Section  3,  the  cone,  tension 
shell,  or  general  shell.  If,  for  example,  25  points  are  desired  for 
any  one  of  these,  then  for  the  cone  the  input  would  be  N (3)  = 25.  1, 
and  for  the  tension  shell  N (3)  = 25.  2,  and  for  the  general  shell  N (3)  = 
25.3.  Specify  THC  for  cone,  BETA  for  the  tension  shell,  and  TH2G, 
TH3G  for  the  general  shape. 

Section  4 --  Toroidal  section  aft  of  Section  3,  specified  as  N (4)  and 
also  specify  RSC,  RC.  For  example,  if  12  points  are  desired,  specify 
N (4)  = 12. 

Section  5 --  Cylinder  section,  specified  as  N (5)  and  also  specify  LC, 
RC.  For  example,  if  five  points  are  desired,  specify  N (5)  = 5. 

Section  6 --  Flare  cone  specified  as  N (6)  and  with  RB,  RSB,  THB, 
and  with  number  of  points  desired  as  above. 

Section  7 --  Toroidal  radius  aft  of  flare  cone  as  N (7)  and  with  RSB 
and  with  number  of  points  desired  as  above. 

Section  8 --  Toroidal  radius  at  base  of  aft  cone  as  N (8)  and  with  RSB 
number  of  points  desired  as  above. 

Section  9 --  Aft  cone  as  N (9)  and  with  THA,  and  either  RA  or  RT  and 
number  of  points  desired. 

Section  10  --  Base  section  is  specified  either  as  a spherical  cap  or  as 
a flat  base.  A spherical  cap  is  specified,  for  example,  as  N (10)  = 8.  1, 
where  8 is  the  number  of  points  desired  and  RA  is  input.  A flat  base 
is  specified  similarly  as  N{10)=  8.  2 and  RT  is  given. 


2.  Stagnation  Conditions  Option. 


An  option  is  provided  for  considering  stagnation  conditions,  other  than 
those  for  a normal  shock,  at  the  edge  of  the  boundary  layer,  to  compute 
the  convective  heat  transfer.  The  option  is  used  by  specifying  TT0  as  the 
desired  shock  angle. 

3.  Adiabatic  Exponent  Option, 

An  option  is  provided  to  input  a value  of  (y)  rather  than  utilizing  the  value 
computed  in  the  oblique  and  normal  shock  subroutine. 

4.  Straight  Sections 

On  straight  sections,  an  odd  number  (N)  of  points  is  recommended  because 
roundoff  may  confuse  the  point  count. 

5.  Shock  Shape  Parameters 

Values  of  the  coefficients  (R^  and  (B)  have  been  correlated  from  numerical 
flow  solutions  in  Reference  15  for  spherical  bodies.  The  value  of  Rw  was 
found  to  be  given  by 

(Pa.  \ 0.1958 

— 


The  value  of  B was  found  to  be  a function  of  ( xw  ) and  the  normal  shock 
density  ratio,  however,  an  approximate  form  was  found  to  provide  good 
agreement  when  (b)  was  taken  as  a constant  and  equal  to  (-0.  646), 

Studies  of  the  shock  shapes  about  elipsoids  and  blunt  cones  are  reported 
in  References  16  and  17,  but  these  are  directed  principally  at  the  region 
downstream  of  the  nose. 

Additional  shock  shape  studies  are  presented  in  References  18  and  19.  The 
shock  shape  form  utilized  m Reference  18  is  of  a slightly  different  form, 
but  the  numerical  results  presented  can  be  used  to  deduce  the  parameter 
( Rw  ) and  (B)  for  elipsoidal  and  parabolic  bodies  as  well  as  spheres. 

The  values  of  ( Rw),  ( Bs  ),  and  (As)  can  be  input  for  both  the  windward  and 
leeward  meridians,  as  a function  of  angle  of  attack.  * The  first  ten  values 
specified  correspond  to  the  windward  meridian  and  values  (11-20)  corres- 
pond to  the  leeward  meridian. 
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6.  Value  of  (NN) 


The  value  of  (NN)  to  be  used  is  found  via  comparison  of  shock  calculations 
with  results  of  "exact"  calculations  and/or  experiment. 

Values  of  (NN)  can  be  found  from  the  results  given  in  Reference  18  for  a 
point  slightly  downstream  of  the  sonic  point  for  a sphere.  A typical  cor- 
relation of  the  theoretical  distribution  of  mass  flow  rate  across  the  shock 
layer  is  shown  m Figure  10. 

Values  of  NN  can  be  input  for  both  the  windward  and  leeward  meridians,  as 
a function  of  the  angle  of  attack.  The  first  ten  values  specified  correspond 
to  the  windward  meridian  and  values  (11-20)  correspond  to  the  leeward 
meridian. 

7.  Value  of  (MM) 

The  value  of  (MM)  to  be  used  is  found  via  comparison  of  radiation  predic- 
tions with  more  "exact"  calculations  and/or  experimental  data  where  avail- 
able. 

Values  of  MM  can  be  input  for  both  the  windward  and  leeward  meridians 
as  a function  of  the  angle  of  attack.  The  first  ten  values  specified  cor- 
respond to  the  windward  meridian  and  values  (11-20)  correspond  to  the 
leeward  meridian. 

8.  Flow  Field  Option 

By  specifying  XJ  as  0.  or  1,  the  calculations  consider  the  body  as  either 
two  dimensional  or  axi symmetric.  The  values  of  XJ  can  be  specified  for 
both  the  windward  and  leeward  meridians  as  a function  of  angle  of  attack. 
The  first  ten  values  specified  correspond  to  the  windward  meridian  and 
values  (11-20)  correspond  to  the  leeward  meridian. 

9.  Two-Part  Program 

The  program  consists  of  two  parts,  18 85 A and  1885B  as  the  latter  portion 
fills  the  core  of  the  IBM  7094.  An  option  is  provided  to  read  in  the  data  of 
1885A  as  tables  or  via  tape.  A typical  output  of  1885A  is  shown  in  the 
following  IBM  listing.  The  tabular  inputs  must  include  the  13  listed  tables 
as  given  by  a typical  1885A  calculation.  In  addition,  several  aerodynamic 
and  thermodynamic  variables  must  be  input  if  1885A  is  not  used,  including 
HDHS90,  PRES,  MACH,  ENTH,  XA,  XN,  XC,  X0,  RH$A,  V,  MACH,  TA. 
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10.  Angle- of- Attack  Choices 


Avoid  angles- of- attack  choices  which  place  stagnation  point  close  to  dis- 
continuities in  body  curvature  because  the  simplified  flow  model  is  in- 
adequate to  cope  with  strong  3- dimensional  effects. 

1 1 . Number  of  Output  Points  (N) 

Specify  (N)  large  enough  for  each  section  such  that  first  (5)  points  on  each 
side  of  stagnation  point  occur  on  the  same  section,  the  choice  of  (N)  is 
therefore  related  to  the  angle- of- attack  choices.  Discontinuities  m 
curvature  near  the  stagnation  point  may  affect  the  accuracy  of  the  laminar 
heating  distribution. 


Figure  10  MASS  FLOW  DISTRIBUTION  ACROSS  THE  SHOCK  LAYER 
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IE.  Input  Forms 

An  input  form  is  provided  for  the  user.  All  the  information  shown  is  key- 
punched for  those  variables  specified.  All  numerical  values  have  decimal 
points. 

D.  OUTPUT  DEFINITIONS 


1885A  OUTPUT 


External  Name 

Parameter 

Units 

GAMMA  W 

Adiabatic  exponent  behind  shock. 

- 

HW/H 

Ratio  of  local  to  total  enthalpy  behind 
shock. 

-- 

IB 

Radiation  intensity  at  body. 

Btu/ ft3 

IW 

Radiation  intensity  behind  shock. 

Btu/ft3 

PW/P0 

Pressure  behind  shock. 

atmosphere 

PWS/P0 

Stagnation  pressure  behind  shock. 

atmosphere 

RW/RA 

Ratio  of  density  behind  shock  to 
ambient  density. 

-- 

RWS/RA 

Ratio  of  stagnation  density  behind 
shock  to  ambient  value. 

— 

RWUW/RAV 

Ratio  of  specific  mass  flow  rate 
behind  shock  to  free  stream  value. 

- 

TH  WE 

Flow  angle  behind  shock. 

degrees 

THW 

Shock  wave  angle. 

degrees 

TW 

Temperature  behind  shock. 

°K 

TWS 

Stagnation  temperature  behind 
shock. 

°K 
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1885B  OUTPUT 


External  Name 

Parameter 

Units 

ALPHA 

Angle  of  attack. 

degrees 

DP/DSL,  DP/DSW 

Leeward  and  windward  pressure 
gradients. 

lb /ft? 

DT/DSTBL 

Body  curvature. 

rad  / ft 

DTDS  ST 

Body  curvature  at  the  stagnation 
point. 

rad/ ft 

I ST 

Coordinate  location  number  for 
stagnation  point. 

-- 

IWSN,  ILSN 

Coordinate  location  for  sonic  point 
in  windward  and  leeward  meridians. 

-- 

M0TBL 

Body  section  number. 

- 

PE/PSL,  PE/ PS  W 

Leeward  and  windward  pressure 
distribution. 

- 

QLL,  QLW 

Leeward  and  windward  laminar 
heating  distribution;  ratio  of  local 
to  zero  angle -of-attack  stagnation 
point  value. 

QLS  AL0 

Laminar  heating  rate  at  stagnation 
point  at  zero  angle  of  attack;  used 
to  normalize  all  laminar  heating 
rates. 

Btu/ft^-sec 

QRL,  QRW 

Leeward  and  windward  radiation 
heating  distribution;  ratio  of  local 
to  zero  angle -of-attack  stagnation 
point  value. 

QRS  AL0 

Radiation  heating  rate  at  stagnation 
point  at  zero  angle  of  attack;  used  to 
normalize  all  laminar  heating  rates. 

Btu/ft*"^-sec 

External  Name 

Parameter 

* Units 

QTL,  QTW 

Leeward  and  windward  turbulent  heat- 
ing distribution;  ratio  of  local  to  zero 
angle-of-attack  sonic  point  value. 

QTS  AL0 

Turbulent  heating  rate  at  sonic  point 
at  zero  angle  of  attack,  used  to  normal- 
ize all  turbulent  heating  rates. 

Btu/ft2-sec 

REE,  REW 

Leeward  and  windward  Reynolds  number 
distribution;  ratio  of  local  to  free  stream 
value. 

-- 

REYA 

Free  stream  Reynolds  number  based 
on  vehicle  diameter  (2RC);  used  to 
normalize  all  Reynolds  numbers. 

SECT 

Section  Number 

— 

THETBL,  THETBW 

Body  slope  of  windward  and  leeward 
meridians. 

degrees 

THETOTBL 

Body  angle  in  zero  angle-of-attack 
axes. 

degrees 

THET  ST 

Body  angle  at  stagnation  point  in 
zero  angle-of-attack  coordinates. 

degrees 

THETW  SN 
THETL  SN 

Windward  and  leeward  sonic  point 
angle  in  wind  axes. 

degrees 

XBL,  Y£L,  SBL 
XBW,  YBW,  SBW 

Body  windward  and  leeward  coordinates 
and  surface  distance  m wind  axes. 

feet 

XBWSN,  TBWSN, 
SBWSN,  XBLSN, 
YBLSN,  SBLSN 

Coordinates  and  surface  distance  to 
windward  and  leeward  sonic  points 
measured  in  wind  axes. 

feet 

X0L,  Y0L> 
X0W,  Y0W 

Body  windward  and  leeward  coordi- 
nates at  angle  of  attack  measured 
1 in  zero  angle-of-attack  axes. 

feet 

External  Name 

Parameter 

Units 

X0TBL,  Y0TBL, 
S0TBL 

Body  coordinates  and  surface  distance 
at  zero  angle  of  attack  as  measured  in 
zero  angle -of-attach  axes. 

feet 

X0WSN,  Y0WSN, 
X0LSN,  Y0LSN 

Location  of  windward  and  leeward 
sonic  point  at  angle  of  attack  m 
zero  angle -of -attack  axes. 

feet 

XSIL,  XSIW 

Leeward  and  windward  shock  de- 
tachment distance. 

feet 

XST,  YST,  SST 

Body  coordinates  and  surface 
distance  to  stagnation  point  at 
angle  of  attack  as  measured  in 
zero  angle -of- attack  axes. 

feet 

E.  SAMPLE  PROBLEM 

1.  Statement  of  Problem 

Determine  the  pressure  and  heating  distributions  on  a blunt  cone  configura- 
tion for  the  trajectories  obtained  in  the  Sample  Problem  for  Program  1880. 
The  angle  of  attack  range  is  specified  as  0 to  180  degrees. 

2.  Input  Forms 

The  input  forms  for  Programs  18 85 A and  B containing  all  the  necessary- 
input  data  are  shown  on  following  pages.  All  the  variable  names  should  be 
keypunched  where  data  is  specified;  decimals  are  used  throughout.  Addi- 
tional input  forms  are  also  provided  on  following  pages  for  the  program 
user. 

3.  Output 

The  output  of  Program  1885A  is  also  included  in  following  pages.  The 
oblique  shock  data  are  given  as  a function  of  the  wave  angle.  In  this  case, 
only  limited  radiation  intensity  data  is  given  as  it  is  so  low;  an  automatic 
test  on  IW  and  IB  is  done  in  the  program  such  that  their  calculation  is 
dropped  if  the  last  value  calculated  is  less  than  1.  0. 
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The  output  of  Program  1885B  is  shown  on  following  pages.  The  first  tabular  array 
contains  the  basic  geometric  data  of  the  vehicle. 

Following  the  first  array  of  data  are  rows  of  data  summarizing  pertinent  results 
contained  in  the  subsequent  data  array,  such  as  the  locations  of  the  stagnation  and 
sonic  points.  The  distribution  of  pressure,  laminar  heating,  turbulent  heating, 
Reynolds  number,  and  radiation  heating  are  given  along  with  a list  of  axial  coordi- 
nates m the  zero  angle  of  attack  axes  which  identifies  each  point.  The  transformed 
body  coordinates,  meridian  distance,  and  local  body  angles  are  also  given  for  each 
point.  The  shock  detachment  distance  (XSI)  is  given,  permitting  the  shock  shape  to 
be  drawn.  Tests  are  provided  on  (QR)  and  (XSI)  to  terminate  these  quantities  when 
QR  becomes  less  than  one  percent  of  the  stagnation  point  value  and  when  (XSI)  ex- 
ceeds (RC),  or  if  the  shock  angle  becomes  negative  or  less  than  the  Mach  angle.  In 
the  present  case,  as  only  one  point  was  found  for  IB  and  IW,  the  radiation  is  inter- 
polated between  these  values  and  zero  until  the  shock  angle  decreases  more  than  two 
degrees  and  the  body  pressure  drops  slightly,  beyond  which  the  IB  and  IW  are  both 
zero  and  hence  QR  is  zero. 

The  values  of  (B)  and  (Ag  ) and  (RW)  which  were  used  for  the  shockwave  calculation 
are  indicated. 

Two  cases  are  present  for  which  the  program  was  unable  to  determine  shock  shapes. 
These  cases  are  the  windward  meridian  at  a =20  degrees  the  leeward  meridian  at 
a - 40  degrees.  For  these  two  points,  inputs  are  required  for  (RW)  and  (B). 

F.  DIAGNOSTICS 
1885A 

A number  of  messages  are  given  in  the  printout  reflecting  the  following  program  diag- 
nostics. 

1.  NQ  VALID  S0LUTI0N 

The  equilibrium  gas  dynamics  (1883)  solution  was  not  able  to  obtain  a solution  with 
positive  concentrations  for  all  the  species  satisfying  the  element  and  charge  con- 
servation relationships.  In  this  case  the  data  is  linearly  interpolated  between  the 
last  and  the  next  point,  for  which  a solution  is  found. 

2.  nQt  converged  in  30  iterations 

The  equilibrium  gas  dynamics  (1883)  solution  was  unable  to  converge  within  30  itera- 
tions to  within  1 percent  on  the  enthalpy,  uses  last  value  found. 

1885B 

1.  CANNOT  FIND  THETA  FOR  RW  &R  B,  SKIP  CASE 

A shock  shape  cannot  be  found  satisfying  continuity  for  the  assumed  flow  model; 
Requires  input  DEBT,  RW0,  BSH0CT. 

2.  SIN(THETAW)  NEG.  F0R  XB  = ( ). 

The  shock  shape  curves  toward  body  beyond  given  XB,  stops  the  calculation  at  the 
last  prior  XB  output. 

3.  THETAW  BEL0W  LIMIT  AT  XB  = ,.(  ). 

The  shock  shape  calculation  is  stopped,  as  at  the  next  output  point,  the  wave  angle 
is  less  than  the  mach  angle. 

4.  YW  LESS  THAN  YB: 

The  shock  wave  calculation  is  stopped  as,  at  the  next  output  point,  the  wave  ordinate 
is  less  than  the  body  ordinate. 
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DIGITAL  COMPUTER  INPUT  rROBLE 

m no  1885A 

1 PROGRAMMER 

REQUEST  FORM  [title 

MEMO  NO  SECTION  NO  WORK  ORDER  NO 

(E240  1 

JSE  ONLY) 

REQUESTED  BY  EXT  EST  TIME 

PAGE  ^ OF  jP AGES 

PROGRAM  WILL  SELECT 

TAPE  A5 

$INPUT 

DATE 

MEM0 

. 

, CASE 

DELAL  = 

RH0A 

- 

, XN 

I LAST 

TA 

_ 

n 

8 

INSTEP  = 

V 

_ 

, XPEVER  = 

PRTAB  = 

XA 

_ 

, XPLAST  = 

PRTAPE  = 

XC 

= _ 

$INPUT 


DATE 

= 

, MEM<?  = 

CASE 

DEDAL 

_ 

, RH0A  s 

4.4E-07  , 

XN 

ILAST 

_ 1. 

, TA 

200.  0 

X0 

INSTEP 

_ 

, V = 

12874 

XPEVER 

PRTAB 

_ 

, XA  = 

XPLAST 

PRTAPE 

, xc 

0.20 

DIGITAL  COMPUTER  INPUT  wo 

REQUEST  FORM  t.tle 

MEMO  NO  {SECTION  NO  WORK  ORDER  NO 

PL169  K420  W3  05- 050- 0005 


(E240  USE  ONLY)  REQUESTED  BY  EXT  EST  TIME 

P.  Levine  2996 


$INPUT 

DATE 

MEMQi 

_ 

CASE 

BETA 

RA 

THC 

C0MQRD 

= 

1. 

RB 

= 

3 

THETAT 

DN2 

_ 

RC 

_ 

7.5 

THN 

ENTH 

_ 

RH0A 

_ 

TH2G 

GAMSQS 

_ 

RN 

= 

1.25 

TH3G 

HDHS90 

_ 

RSB 

_ 

. 15 

TTC* 

ILAST 

_ 

1.0 

RSC 

_ 

. 15 

UP2 

LC 

_ 

RSN 

= 

V 

LE 

1.4 

RT 

_ 

3.75 

XA 

LX 

_ 

0.52 

TA 

_ 

XC 

MACH 

_ 

TAPE 

_ 

XM 

NALPHA 

_ 

9 

TB 

_ 

1000.0 

XN 

PN 

_ 

0.7 

THA 

„ 

-80.  0 

X0 

PRES 

_ 

THB 

X0TBL 

ALPHA 

0. 

10. 

20. 

30. 

, 40 

60. 

90. 

120. 

150. 

DELT 

a 

450' 


* DATE  07/05/66  JOB  NO.  68  REMOVE  BEFORC  RESURMtTTING 

♦SILLERS  63  027230 

* GOING  TO  IBSYS 

* IBSYS 


tJGB 

SATTACH  A 5 

SAS  SYSUT5 

“ ^EXECUTE  I8J06 

IBJOB  VERSION  5 HAS  CONTROL. 

“ t'lBJQB  GO, MAP, NOSOURCE 


IBLDR 


12/ Dl/ 5^ 


P4GF  1 


* MEMORY  MAP  * 


Q1 

(*& 

A 


SYSTEM 

30000 

THRU 

027  L7 

'file  b'lock  origin 

02720 

FILES  1.  UNIT08 

2."  UNIT05 

3.  UNIT06 

" FILE  LIST  ORIGIN 

0276* 

PRE-EXECUTION  INITIALIZATION 

02772 

cscir  on  "object  program 

03023 

OBJECT  PROGRAM 

03030 

THRU 

51431 

__DECK_ 

ORIGIN 

CONTROL 

SECTIONS 

(ZNAMF/=NON  0 

1. 

1885A 

03030 

04456  4 

27 

"UNO  8' 

04474 

.UN08. 

04474 

3. 

SOBLIK 

04475 

OBLIK 

07210 

2j— ■ 

" SFINDT 

" 0740  5 

FINDT 

07636 

5. 

SHVST 

07752 

HVST 

13741 

6. 

"STONES 

14757 

ZONES 

20513 

7. 

SGETO 

20656 

GETO 

22732 

a. 

"SGETK" 

" 2305*  " • 

GETK 

23436 

9. 

SFINDH 

23546 

FINDH 

24105 

rur 

£ 

UJ 

5 

1 

24222  ~ 

HEAT2 

25031 

n. 

SPHIL 

25214 

PHIL 

25430 

"T2 . 

“SGETfi 25477," 

* GEtN"  ■ 

27400 

13, 

SARTLU 

27443 

ARTLU 

27655 

14. 

“VOCoTj  30026 

• LTSTR' 

30026  * 

• LXSTP 

30032 

.LXCAL 

30115  * 

•LXERR 

30115 

.CLYE 

30477 

.LF8L 

30500 

15. 

. IDDEF 

30506 

.OEFIN 

30505 

.ATTAC 

30512 

.WRITE 

30522 

.8  SR 

30532 

. LF8LK 

30573 

• LTSX 

30576 

.GOA 

30655 

.GO 

30661 

• EX34 

30722 

rsr 

TCXSL 

30727 

.LXSEL 

30727 

LXCSEL 

30730 

.LXIND 

31053  * 

• LXDIS 

31056 

177 

YFpTRP' 

' 31066 

.FFPT. 

31066  + 

. FPOUT 

31225 

18. 

.ERAS. 

31326 

E.I 

31326 

E.2 

31327 

i9~. 

.XCC. 

31332 

CC.l 

31332 

CC.2 

31333 

20. 

XI T 

31336 

EXIT 

31336 

.EXIT. 

31336 

“2T. 

' FXEM 

31337 

.FXEM. 

31337 

•FXOUT 

31674 

22. 

fout 

31767 

.FOOT. 

31767 

23.  FCNV 

32330 

.FCON. 

32330 

.FCNV. 

32353 

• FDX2 

32375 

• 08C 

32377 

.OOFIX 

32602 

.FIXSW 

32610 

.01 

33135 

.02 

33137 

.LNTP 

33360 

.AOUT 

33427 

.FXD 

33672 

.HOUT 

34072 

• XCF 

34250 

.TFST 

34767 

.OUTBF 

35052 

. QUF 

35102 

.GAIN1 

35105 

. FBDBF 

35116 

.P  EX 

35145 

.FEXP 

35146 

24. 

FI  08 

35165 

« F 100. 

35165 

.FCNT 

35270 

.FRLR. 

(35432) 

• FWLR. 

35476 

25. 

FIOS 

35636 

.FIOS. 

35635 

. FSEL. 

35776 

LENGTH,  (LOC ) =DELETEO»  * = NOT  REFFRFNCED) 


. LXOUT 

*3'0  10'  5' 

•LXRTN 

30112 

T8EXTT 

30*112  ' 

.OBCIS 

30277  * 

.LKARG 

30446 

.LO 

30471 

• LUNB 

33601"  ‘ 

' ~ 7 OFOOT  ' 

30502 

- 

.CLOSE 

3051  * 

.OPEN 

30516 

.READ 

30520 

•REACT 

30542 

'.VELES 

30544 

* 

.larea 

‘ "3055  5" 

» ARE  A1 

33610 

.LJNBl 

30616 

.ENTRY 

30622 

.OERR 

3067  5 

iNTPXT 

30576 

•CQMX 1 

■~30'70C) 

•LXTST 

3073  3'  * 

.Lxovl 

30773 

* 

.LXRCT 

31004 

.lxflg 

31051  * 

.lTCH 

31060 

.FPARG 

3124  4 

/.COUNT/ 

31246 

* 

OVFLOW 

31317 

F.  3 

31  330 

E.  4 

31331 

CC.3 

3133  V 

CC.  4 

31335 

. FXAR3 

31702  * 

/:dptj;/ 

31756 

.ENDFS 

3235  5 

.CNYSW" 

32370 

.FDX 1 

32374 

.db:io 

32535 

• 03C20 

32553 

. DDSW 

32573 

.ODBC 

32  655 

' . ODRSl 

33130' 

. 00RS2 

33132 

. FERR2 

33  224  * 

. ANPT 

33250 

.I3NPT 

33275 

.dflt 

33445 

.=LT 

33601 

* OEXPN 

33671 

. I NTG 

34072 

.LOUT 

34210 

.onuT 

342?7 

.KOUNT 

34772 

.LIST 

34775 

.OONF 

35006 

.OSTO 

35103 

.rflOTH 

35104 

.GAIN 

35105 

•OODFL 

35142 

• OOFLG 

35143 

.MOO 

351  V4 

.DIG 

35147 

. FBLT. 

35355 

• s 3 OT  • 

35406 

. CRLR • 

35432 

•FWLR. 

( 35476) 

.F3I3F 

35536 

.FRITH 

35630 

.FILS. 

35002 

.SU3. 

3601) 

.FRTO. 

36016 

\K 


>SS£ 


IBLDR 


12  / 31  / 51 
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.FO?N  35027  * REOF  36033  * .TOUT.  36176 

• FCT  36235  .FCKSZ  36210 

. FRTN.  37m  * 


.NMLSr  W5W  .MAHE.  *1652  .INTAP  41653 

ASIND  42374 
ATANQ3  42477 


.teor 

‘*57  zn — 

3 E = 1 . 

45000 

.JOIN* 

46044'T' 

£ l_l 

.SHI 

45313  ♦ 

• SH  9 

46352 

4 

.OPEN. 

46373 

i 

,0P9.2 

4S4S5'*~ 

ilLSE. 

46540 

•RER2. 

455?0  ' 

.WRIT. 

46556 

.HUT1A 

46754 

* 

.EOFEX 

47335  * 

- A I 

,RW7 

4724"?  * 

’ ZW 

”47567 

* 

. ENDTR 

5033d" 

“ i 

.EOT OF 

51073 

• ET3F3 

51076 

* 

. SNITC 

51125 

* INPUT 


ta 

co 

A 


RHOA  = +0 ♦ 4 400000 0F-06» 

V = +0.12874000E+05, 

XA  = +0. OOOOOOQOE— 38t 

XC 3 ” +0.20000000E+00, 

XN~  "5  * ' +0.80000000E+00, 

XU 3 +O.OOOOOOOOE-38, 

xpryvr-=  +O.OOOOOOOOE-38, 

XpEVEK-~  -•  +O.OOOOOOOOE-33, 

TyEOn:  s-  +0.20000000E+01, 


FA 

+o;zoooooooe+03. 

" 

PBTSB — 3“ 

+<i.ioooooooe+oi, 

PRT  AP  E- = 

+ur  r oo  o’oo'ooe +o  i ; 

' I CAST  3 

l. 

U1  ~ 

INSTOP  = 

+O'.I‘0OOOOOOE  + O1., 

__  1 ” 

DATE:  ” 

^0.-7500000"OE  +0 1 

MEMO  = 

+ 0.  (TOOO(TOOOE-38i 

- 

“CJS5E  3 “ 

‘ ” +0.10000000E+01, 

c/r 

A 


TH  W RW/RA  RWUW/RAV  TH  WL  GAMMA  W TH 


PW/PO  HM/H  US/RA  PWS/PO 


TWS 


IW 


in 


+ 90.00  +1.2  IE + 01  +1.00E+00  +0.00  +1.18F+00  +3.66F+03  +3.17E-02 

+88.00  +1.13E+01  +1.07E+00  +19.48  +1.16E+30  +4.57E+03  +3.15E-02 

+86.00  +1.10E+01  +1.26F+00  +33.62  +1.19E+00  +4.65E+03  +3. 13F-02 

+84.00  +1.08E+01  +1.50E+00  +42.88  +1.19E+0D  +4.71F+03  +3.10F-02 

+82.00  +1.06E+01  +1.77E+00  +48.01  +1.20E+00  +4.77E+03  +3.07E-02 

.t®0,00  +1  • 03E  + 01  +2.05E  + 00  +51.24  +1.20E+00  +4.81E+03  +3.03F-02 

+78.00  +1.01E+01  +2.32E+00  +53.08  +1.21E+0O  +4.84E+03  +2.98F-02 

+76.00  +9.926+00  +2.59E+00  +53.99  +1, 216+30  +4.85E+03  +2.93E-02 

+74.00  +9.73E+00  +2.85E+00  +54.28  +1.22E+00  +4.85F+03  +2.87F-02 

+72.00  +9.54E+00  +3.10E+00  +54.12  +1.22E+00  +4.83E+03  +2.80F-02 

+70.00  +9.36E+00  +3.34E+00  +53.64  +1.23E+00  +4.80E+03  +2.73F-02 

+68.00  +9.18E+00  +3.56E+00  +52.91  +1.236+00  +4.75E+03  +2.65E-02 

+66.00  +9.01E+00  +3.78E+00  +52.01  +1.24E+00  +4.70E+03  +2.57E-02 

+64.00  +8.85E+00  +3.98E+00  +50.95  +1.24E+00  +4.62E+03  +2.43E-02 

+62.00  +8.69E+00  +4.17E+00  +49.79  +1.25E+O0  +4.53E+03  +2.39E-0 2 

+60.00  +8.53E+00  +4.35E+00  +48.53  +1.25E+00  +4.436+03  +2.29E-02 

+58.00  +8.38E+00  +4.52E+00  +47.19  +1.26E+00  +4.32E+03  +2.19F-02 

+56.00  +8.24E+00  +4.68E+00  +45.80  +1.26E+00  +4.19E+03  +2.096-02 

+54.00  +8.09E+00  +4.82E+00  +44.35  +1.27E+30  +4.05F+03  +1.9OF-02 

+52.00  +7.95E+00  +4.96E+00  +42.85  +1.27E+00  +3.91E+03  +1.88E-02 

~+50 .00  +7 .816+00  +5. 086+00  +41.33  +1.27E+00  +3.75E+03  +1.78E-02 

i48^00  +7.68E+00  +5.19E+00  +39.77  +1.28E+00  +3.5BE+03  +1.67E-02 

+4'6T00  +7.54E+00  +5.29E+00  +38.18  +1.28E  + 00  +3.41E+03  +1.56E-02 

+44.00  +7.41E+00  +5.37E+00  +36.57  +1.29E+00  +3.23E+03  +1.45E-02 

>42: OD  +7.27E+00  +5.45E+00  +34.94  +1.29E+00  +3.05E+03  +1.34E-02 

^40. 00  +7.14E+00  +5.51E+00  +33.30  +1. 30E+00  +2.86E+03  +1.246-02 

+3B. tR>  +7.01E+00  +5.56F+00  +31.64  +1.30E+00  +2.66E+03  +1.13E-02 

+36.00  +6.87E+00  +5.59E+00  +29.96  +1.31E+00  +2.47E+03  +1.03E-02 

+34T(Fir+6.73E+00  +5.61E+00  +28.28  +1.  31E+00  +2.2SE+03  +9.296-03 

+32.00  +6.59E+00  +5.61E+00  +26.58  +1.32E+00  +2.08E+03  +8.33E-03 

+ 3tT70'0' + 67446+00  +5.6 OE+OO  "+24.87  +1.32E+00  +1.89E+03  +7.40E-03 

+28.00  +6.28E+00  +5.56E+00  +23.16  +1.33E+00  +1.71E+03  +6.51E-03 

+26.00  +6.1 16+00  +5.51E+00  +21.43  +1.33E+00  +1.53E+03  +5.66E-03 

t2*;.?0  +5.92E+O0  +5.42F+00  +19.70  +1.346+00  +1.35E+03  +4.86F-03 

♦22T0'0  +5.71E+00  +5.31E+00  +L7.95  +1.34E+00  +1. 186+03  +4.UF-03 

+20.00  +5.48E+00  +5. 166+00  +16.20  +1.356+00  +1.036+03  +3.416-03 

+r8750  +5.216+00  +4.96E+00  +14.43  +1.35E+00  +8.78E+02  +2.78E-03 

„ _116^.00  +4.89E+00  +4.71E+00  +12.64  +1.36E+00  +7.41F+0?  +?. 206-03 

+14.00  +4 .506+00  +4.37E+00  +10.83  +1.36E+DD  +6.17E+02  +1.69E-03 

_ +4.03E+Q0  +3.95E  + 00  +8.98  +1.37E+00  +5.05E+02  +1.24C-03 

+ r<T.00  +3.44E+00  +3.40E+00  +7.07  +1.37E+00  +4.10E+02  +8.57E-04 

„.+8*°0  +2.73E  + 00  +2.71E+00  +5.05  +1.38E+00  +3. 286+02  +5.42r-04 

"""+6.00  +1.89E+00  +1.89E+00  +2.02  +1.38E+00  +2.61E+02  +2.976-04 

_ +4.00  +1.01E+00  +1 . 0 1E+00  +0.05  +1.38E+00  +2.01E+02  +1.21E-04 

+3797  +1.00E+00  +1.00E+00  +0.00  +1. 38E+00  +2.006+02  +1.19E-04 


+9.93E-01 
+9. 91E-0L 
+ 9.87F-01 
+9, S1F“01 
+9, 73E-01 
+9.626-01 
+ 9.49E-01 
+ 9.  346-01 
+9. 16E-0L 
+8.97E-OL 
+ 8.  756-01 
+3.536-01 
+ 8.  29E-01 
+8.02E-OL 
+7.75E-01 
+7.44E-01 
+7. 15E-01 
+6.85E-01 
+6.53F-01 
+6.21E-01 
+ 5.87E-01 
+5.54E-01 
+5. 206-01 
+4.07E-OI 
+4.53E-01 
+4.206-01 
+3. 87E-01 
+3.54E-01 
+ 3*  236-01 
+2.92E-0L 
+2.626-01 
+2.34E-01 
+2.07E-01 
+1.31E-01 
♦1.57E-01 
+1. 356-01 
+1 . 14E-01 
+9.53F-02 
+7. 866-02 
+6.39C-02 
+5. 13E-02 
+4.07E-02 
+3. 20E-O2 
+2.44E-92 
+2.43E-02 


+ U 265+01 
+1.13501 
+1. 135  + 31 
+1.195+31 
+L.21E+31 
+1. 255+01 
+1.335+31 
+1.375+31 
+1. 45E+31 
+1.555+31 
+1.635+3 L 
+1 .925+31 
+1.995+31 
+2.23E+01 
+2.45E+31 
+2.745+01 
+3.39E+D1 
+3.525+31 
+4.335+31 
+4.S5E+D1 
+5.415+31 
+6.34E+31 
+7.535+31 
+8.955+31 
+1.035+32 
+1.315+02 
+ 1 * 615+32 
+1.995+02 
+2.535+02 
+3.17E+02 
>4;  035  + 02* 
+5.31E+32 
+7. 335+32 
+9. 445+02 
+1. 29E+03 
+1.795+03 
+2.52E+03 
+3.535+33 
+5. >35+03 
+7.435+33 
H.05E+D4 
+L.39E+34 
+1 . 335+34 
+1. 535+04 
+1.57E+04 


+3.32E-32 
+3, 33E-32 
+3.396-02 
+3.49P-02 
+3.63F-02 
+3.32F-0? 
+4.05E-02 
+4.33E-3Z 
+4.68E-02 
+5.09E-02 
+5,586-02 
+6.17E-02 
+6.86E-02 
+7.69E-32 
+8.69F-32 
+9.88E-02 
+1.13E-31 
+1 .316-01 
+1.52E-01 
+1.77E-01 
+2.09E-0I 
+2.49E-0I 
+2.98E-01 
+3.60E-01 
+4.39E-01 
+5 .436-01 
+6.716-01 
+8.42E-01 
+1.076+00 
+1.37E+30 
+1.79E+03 
+2.35E+D0 
+3.15E+00 
+4.28F+00 
+5.90E+90 
+8.286+00 
+,l.i8E+ni 
+1.70E+01 
+2.48E+01 
+3.63E+31 
+5.116*01 
+6.81E+91 
+8.016+01 
+7.73E+01 
+7.72E+01 


+3.69F+nT 
+4.6ir+03 
+4. 716+03 
+4.816+03 
+4.906+03 
+5. 09p+03 
+5. 1QP+03 
+5.235+03 
+5. 29E+03 
+5. 39E+03 
+5.486+03 
+5.576+03 
+5.676+03 
+5.76E+03 
+5. 95E+03 
+5.946+03 
+6.036+03 

+6.126+03 
+6.21E+03 
+6.306+03 
+6.386+03 
+6.476+03 
+6.566+03 
+6.646+03 
+6.736+03 
+6.81F+03 
+6.896+03 
+6.986+03 
+7.066+03 
+7. 146+03 
+7VTZE  + 03" 
+7.30E+03 
+7.385+03 
+7.466+03 
+7.546+03 
+7.626+03 
+7.705+03 
+7.77F+03 
+7.856+03 
+ 7.926+03 
+8.006+03 
+8.08E+03 
+9.156+03 
+8.226+03 
+8. 22F+03 


+1.746-03 
+0.30E-39 
+0.006-3° 
+0.315-39 
+0. DOE-39 
+0. DDE-39 
+0. 00E-39 
+0.D0E-39 
+0.006-39 
+O.OOE-39 
+0. OOE-39 
+0. ODE-39 
+O.OOE-39 
+0. DOE-39 
+0.006-39 
+0. ODE-39 
+O.OOE-39 
+0.006-39 
+0. ODE-39 
+0. ODE-39 
+0.006-39 
+0.00E-39 
+0.DDF-39 
+0.00E-39 
+0. ODE-39* 
+0. ODE-39 
+O.OOE-39 
+0.006-39 
+0;  036-39" 
+0.006-39 
+ OTOOE-39' 
+0*  00E-39 
+o:ooe-39 
+0.006-39 
+0. ODE-39 
+0.006-33 
+0.006-39 
+0. DOE-39 
+0. ODE-39 
+0.33F-39 
+0.0D6-39 
+0. ODE-39 
+O.OOE-39 
+0. DDE-39 
+0. DDE-39 


+0. ODE-33 
+O.00E-39 
+0.03F- 39 
+0. OOF-39 
+O.OOE-39 
+0. 0'OE-39" 
+0.  006-39 
+ 0.  OOF-39"  * 
+0. OOF-39 
+0. OOE-39" 
+0.00E-39 
+"0.  OOE-39'" 
+0. OOF-39 
+’0.  OOE-39" 
+0. OOE-39 
+0. OOE-39" 
+0. OOF-39 
+0. OOE-39" 
+0. OOE-39 
+0. OOE-39” 
+0.006-39 
+0.006-39“ 
♦0. OOE-39 
*"+07  ODE- 39” 
+0. OOE-39 
♦ O7*O0F-"39“ 
+0.006-39 
*+07005-39” 
+0.006-39 


+0: OOE-39” 
+0. OOE-39 
"+07  006-39“ 
+0. OOE-39 
>07  OOE-39” 
+0. OOE-39 
+0. OOE-39 
+0. OOF-39 
+07006-39“ 
+0. OOE-39 
♦0. OOE-39" 
+0. OOE-39 
"+0."  OOE-39" 
+0. OOE-39 
+0. OOE-39” 


455< 


158  LTNES  OUTPUT. 
tIBSYS 
*PAUSC 

□PER . ACTION  PAUSE 

..CONTINUING 

$PAUSE 

OPER * ACTION  PAUSE 
..CONTINUING 


0000CO03OU0O0000098O0O1I-01OIGOJJ0UU83 JC 1F330000  TBSYST-3P3')! 0333027* 4333333333  } 
1 LINES  OUTPUT  THIS  JOB. 


$ I BLDR  SGETB 
SI8LDR  SGETOR 
S1BLDR  SPINOR 
J DATA 


12/31/54 

12/31/64 

12/31/54 


53ET3330 
53ET3333 
SCI N3  3 3 3 


456 


IBLDR 


um/64 


'AGF  ?0 


GTH,  RQ[:)  = DE_£T  = 3*  * = NOT  REFEPFNCED1 


.LXOUT  53663 
.OBCLS  51057  * 
.LUNB  51 2b 1 
.CL3SE  5127V 
.READR  5132? 

. ARE A1  51373 
.DERR  51455 


.ENOFS  5314  » 
•D3C 13  53315 

.ODBC  53445 


" ."LX3TN  50672 
.LX4RG  51224 
•OFOUT  5126? 

• 3?EN  51276 
• 1ELES  51324  * 
• L JSBL  51376 
* • N3PX I 51456 


.3NVSW  53150 
.33320  53343 
. 30RS1  53710 


IBEXIT  50672  * 

■ L9  51251  * 

• RE49  51300 
.UREA  5133?  ~ 
•ENTRY  51432 
.COMXT  51460  

. LXRCT  51554  * 

OVFLOW  52077  * 


•FDX l 53154 
.DOSW  53353 
.DORS?  53712 


.LXTSr  51513  * 
• LXFLS  51637  * 
•FPAR3  52024 
F.3  52110 

CC.3  52114 

•FXAR3  52462 


.LXDVt" "51553  * 
•LTCH  51640 
/.33UNT/  52025  * 
E.4  52111 

ZZ. 4 52115 

/.3PT4./  52536 


>£S‘£ 


IBLDR 


.01  >3715  .0?  53717 

.LNTP  54140  .AOUT  54207 

• F XD  54452  .HC1UT  54602 

. XCF  55040  .TEST  55547 

.OUTBF  55632  .BUF  55662 

.GAIN1  55666  . FBOBF  55676 

.PEX  55725  .FEXP  55726 

34.  FIOB  55745  .FIOB.  55745  .FCNT  56050 

•FRLR.  (54212)  . rWLK.  56256 

35.  FI OS  56416  .FIOS.  56416  . FSEL.  56554 

.FILL.  56601  . FCLS  56603  * 

.REFP  56764  * .BIN  56765  * 

36.  FI OH  57052  .FIOH.  57052  .FFIL.  57637 

37.  FWRD  60062  .FHRO.  60062 

38.  FROB  60106  .FROB.  60106 

39.  FWRU  6013?  .FWRU.  60132 

40.  FWRO  60156  .FWRO.  60156  .FREST  60461  * 

“ ~*4l.  FROU  60563  .FRDU.  60563 

42.  UN05  60624  .UN05.  60624 

43.  UN06  60625  .UN06.  60625  .BUFSZ  60626 

44.  FIOU  60631  ,.FIOU.  60631  .CTUIO  61304 

'45.  JASIN  63056"’  ASINR  63135  * ASIN  63145 

46.  JTNOR  63163  ATANQR  63241  ATANQ  63250  * 

47.  "FLOG  63266  ALOGIO  63266  * ALOG  63267 

i 48.  FXPF  63472  EXP  63472 

$ 49.  FSCN  63612  COS  63612  SIN  63614 

1 50.  FSOR  64023  SORT  64023 

51.  FATN  64130  AT  AN 2 64130  ATAN  64132  * 

52.  FXP2  64336  -XP2.  64336 

53.  FXP3~  64454  «XP3.  64454 

54.  FRWT  64601  .FRWT . 64601 

~ 55i  FTNC  64706  COTAN  64705'  TAN  64707 

56.  .IOCS  65131  *L ( 0)  65131  .MONSW  65151 

.CLOS.  65363  • ATTC.  65376 

.0P4  65721  * .0P7  65752  * 

. .READ.  66041  .RER1.  66064 

•FEEIT  66405  .GT10X  66426 

*'•  ’ ,SEL 59  67632  * .BSR.  70243 

.TCHEX  70726  .3ASI0  70731  * 

57.  .IOCSM  70732 

5B.  //  75154 

I/O  BUFFERS  70732  THRU  75044 


UNUSED  CnPE 


75045  THRU  75153 


.FCRR2  54004  * . AHS I 5404^  .ONPT  54055 

•DFLT  54225  . SLT  54341  . DFXPN  54451 

. INTG  54452  .LOJT  54773  .CPUT  55007 

, KOUNI  55552  .LIST  55555  . DONF  55556 

.Q5T0  55653  .dlOTH  55664  .GAIN  55655 

•ODDFL  55722  . ODFLG  55723  .MOD  55724 

.DIG  55727 

. FBLT.  54145  .FBDT.  56166  .FRLP . 56212 

. FWLR.  ( 55255)  . =31 8F  5*>31  4 .FRITE  55410  * 

.FILK.  54552  .=RT3.  56571  * .TRTO.  56576 

. F3PN  56601  * 1=0F  56413  * .TOUT.  56756 

.FCT  55755  .FCKSZ  56770 

.FRTN.  57654  * 


. NML  ST  61327  .'JAME.  62432  .IMTAP  62433 

ASIND  53154 
ATANOO  63257 


CRIT  65052  * 
.TEOR  65220 
.SHI  65610  * 
.OP9.2  65755  * 

.WRIT.  64054 
. RW7  66544  * 
.FDTO=  70373 


.OEFI.  65300 
. SH9  4555?  * 
• RLSE • 66040 

• MMTl A 66254  * 
. RE7  67167  * 
. ETDF3  70376  * 


.JOT NX  65344  * 
.OPEN.  65673 

• RER  ? • 66040 

.EOFEX  66335  * 
• EMDTR  67430 

• SWT  TC  70425 


tINPUT 


C/T_ 


"~OATE 

= 

+C.75000000E+0L, 

•'  MEMO 

= 

+O.OOOOOOOOE-38, 

~ case 

- 

+0.1 000000 OE+Oi, 

W~ 

“ST- 

' +O.IOOOOOOOE+Q2, 



+O.OOOOOOOOE-38, 

RN 

+0.12500000E+01, 

RSN 

+O.OOOOOOOOE— 3B, 

THC 

+0. 0000000 OE— 38, 

RC 

=_ 

+0.79000 00 OE+Oli 

RSC 

= 

+0.15000000E+00, 

LC 

+O.OOOOOOOOE-38, 

THB 

+O.OOOOOOOOE-38, 

RSB 

= 

+0.15000000E+00, 

RB 

+O.OOOOOOOOE— 38, 

THA 

.= 

-o.eoooooooE+02, 

RA 

+0. 0000 000 OE-38, 

RT_ 

,= 

+0.37500000E+01, 

BETA 

= 

+O.OOOOOOOOE-38, 

TH2G _ 

. . 

+0. 0 000000 OE— 38, 

TH3G 

+O.OOOOOOOOE— 38, 

XA 

+0.00000000E— 38, 

XO 

- 

+0.0 000000 OE-38, 

XC_ 

= 

+0.00000000E-38, 

__  XN 

= 

+0.00000 00 OE-38, 

-O.OOOOOOOOE-19, 

rthoa 

- 

+0. 0000 000 OE— 39, 

TA 

= 

+0 .OOOOOOOOE-38, 

V ” 

* 

+0.00000000F— 38, 

' TB 

* 

+0. 10000000E+04, 

THN 

= 

+0.6 000000 OF +02, 

'gamscT 

= 

+0. 00000000E-38, 

-0.00000000 F-19, 
-3.00000000E-19, 

+0. OOOOOOOOE—30* 
+O.0OOOOOOOE-38, 


-O.OOOOOOOOE-19, 
-0*  00000 00 GE- 19, 


+o.ioiooooo;f02r  vn.ioooomoE+oa,  +3.oooOooooe-3R,  * "" 

+0.1Q300000=+32t  +0. 10000000F+D2,  +0. 1 0200000E+02, 


-0. 00033 03 0;-l9»  -0.000000 OOF- 19»  -0. OOOOOOOOP-I 9» 

-O.OOOD3O0OH-19,  -0.00000030E-19,  -0. OOOOROOOE-19, 


>6S 


TABLE  = -0. OOOOOOOOE— 19,  -O.0OOO0OOnE-19, 

-O.OOOOOOOOE-19,  -O.OOOOOOOOE-19, 

-0. OOOOOOOOE— 19,  -0. OOOOOOOOE-1 9, 

-O.OOOOOOOOE-19,  -0.03000000F-1 9, 

-0. OOOOOOOOE— 19,  -O.OOOOOOOOE-19, 

-O.OOOOOOOOF-19,  -C. OOOOOOOOE-1 f, 

-O.OOOOOOOOE-19,  -0.09900000F-19, 

-O.OOOnOOOOF-19,  -0.0UJC039(1E-19, 

-3.0nf\000Q0E-19,  -l  . JiVr>Q-iO£-l  9, 

-O.0OOOCOOOF-19,  -o.  »OOOOOOr*F-19, 

—0. OOOOOOOOE- l 9,  -U. JOOOODOOr-19, 

-9#On<*noOOOF-l9,  -0. '''iQOOOOPF-1  9, 

-o.  two  of- i >.  -...-"OwOunor-xo, 

-i.9  OCj’.'OCE-I  9*  onnioor-io, 

-0.0 'll  ” 100.'>5',rr-l  o. 


+0. 00900 03QS-33*  + O.OOOn9'W=-3  r,  +0.  OOPOWOE-^P, 
+0. OOOOOOOOS -33,  fO. 0O000990E-l«,  +0.000000006-38, 
+0.00000 OOOE -33,  +O.OOOOOOOOE-3P,  + 0. 90n90'l90F-38» 
+0.0 0000 00 OS-33*  +9.090000309-89,  +0. oo 000 00 OF -3 8, 
+0.00000  00  OS-33,  +0. 0D000930F-39 , +O.0O0P|*)O0OE-3R» 

+0. 00000 OOOS -33 , +0. 00000300E-38,  +0. OOOOOOOOE-38, 
+0.00000  000: -33*  +0.  OOOOOP'iOF-38,  +0. 00009000E-38, 
+0. OOOOOOOOS -33*  +0. OOOOOOOOE-38,  +0. OOOOOOOOE-38, 
+0.00000000: -38*  +0.00090030E-38,  +9. 900090905-38, 
+0. OOOOOOOOS-33 , +0. OOOOOOOOF-38,  +9. 00000090F-38, 

+0. 00009 00 0E-3B , +0. OOOOOOOOF-38*  +0. OOOOOOOOF-38* 
+0.  OOOOOOOOS - 33*  +0. 00009900E-38 , +0.00000000c-38t 
+0. OOOOOOOOS-33,  +0. OOOOOOOOF-38,  +0. OOOOOOOOE-38, 
+0. OOOOOOOOS-33*  +0. OOOOOOOOF-38.  +0. OOOOOOOOE-38, 
+0. 00000 00 Or -33  * +O*0OOOOOOOr~39 , +0. OOOOOOOOF-38, 

+0. 20000 OOOS  + 02,  +0. 30000000E+02,  +0. OOOOOOOOE +02, 
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8 +4. 303E+00 
"8  "+3T5T0E+00 
8 + 4._335E+00 
8“+?.  3486+00 
8 +4. 358E+00 

8 +4".  366F+00 

9 +4. 371E+00 

9 +4.4356+00 
9 +4.499E+00 
'9  +4.  5636+00 
9 +4.6276+00 
9 +4. 6916+00 
9 +4.7556+00 
9 +4.0196+00 
9 +4.8836+00 
9 +4.9476+00 

10  +5.0106+00 
10  +5.0106+00 
10  +5.0106+00 
10  +5. 010C+00 
10  +5.010F+00 

10  +5.0106+00 
10  +5.0106+00 


XB  W 


YB  W SH  W TH6TBW  PF/PS  W DP/)S  A 


3L  A 


IT  H RE  W OR  H 


+O.OOOE-39 
+7.6156-04 
+4.757E-03 
+1.2166-02 
+2.2976-02 
+3.713E-02 
+5.4626-02 
+7.538E-02 
+3.4396-01 
+6.1256-01 
+8.8106-01 
+ 1 . 150E+00 
+1.418E+00 
+1.687E+00 
+1.9556+00 
+2.2246+00 
+2.492E+00 
+2.761 E+00 
+2 . 767E+00 
+27775E+00 
+2. 784E+00 
2.78*96+00" 
+2.794E+00 
+ 2'.t805E  + 0'0 
+2.818F+00 
+2;&31E+00 
+2.846E+00 
+2. 86'lE  + OO 
+2.876E+00 
+2.8976+00 
+2.918E+00 
+2.938E+00 
+2.958E+00 
+2.977E+00 
+2.994E+00 
+3.01*06+00 
+3.0236+00 
+3.0346+00 
+3.043E+00 
+3.1696+00 
+3.2956+00 
+3 . 421E+00 
+3.547F+00 
+3.6726+00 
+3.798E+00 
+3.9246+00 
+4.0506+00 
+4. 176E+00 
+4.302F+00 
+4.3676+00 
+4.432F+00 
+4.4°7E+90 
+4.563F+00 
+4.6286+00 
+4 .6936+00 


+0. OOOE-39  + 0. 
+4.  362E-02  *4. 
+1.089E-0 1 +1. 
+1.740E-0 1 +1. 
+2. 385E-01  +2. 
+ 3.  024E-01  +3« 
+3. 655E-01  +3, 
+4.275F-01  +4, 
+1. 165E+00  +1. 
+ 1.  903F+00  +2, 
+ 2.6416+00  +2. 
+3. 379E+00  +3, 
+4.1176+00  +4. 
+4. 855E+00  +5. 
+5. 592E+00  +5. 
+6. 330E+00  +6. 
+ 7.0686+00  +7, 
+7.  806E+00  +8, 
+ 7*  820E+00  +8. 
+ 7.  834E+00'  +8, 
+ 7.  847E+00  +8, 
+T,  8*5 3 6 +00”+ 8^ 
+7.859E+00  +8. 
+ 7.  8706+00'  +8; 
+ 7.  879E+00  +8. 
+7. 887E+00  +8. 
+7. 894E+00  +8. 
+ 7.  8996+00'  +8. 
+7. 902E+00  +8. 
+ 7.  905E+00  +8. 
+7. 904E+00  *3. 
+ 7.  900E+00  +8. 
+7. 894F+00  +8. 
+7. R85E+00  +8. 
+7.8736+00  +8, 
+7.8596+00  +8. 
+ 7.8436+00  +8. 
+ 7.8256  + 00  +8. 
+7.8066+00  +8. 
+ 7.4606+00  1-9, 
+7.1146+00  +9, 
+6.7686+00  +9. 
+6. 42 2 E+00  +i. 
+ 6. 0766+00  + L < 
+ 5, 730E+00  H, 
+5.3846+00  +1. 
+5.038E+00  +1, 
+4. 692E+00  M, 
+4.3466+00  +1. 
+3.9776+00  +1, 
+ 3.  607E+00  + 1, 
+3. 238E+00  +1, 
+ 2*  869E+00  +1. 
+ 2. 5006  + 00  +1. 
+ 2.  130E+00  +1. 


0096-39 
353E-02 
0916-01 
745E-01 
400E-01 
0546-01 
709E-01 
3s3E-01 
2223+00 
007E+00 
7925+30 
577E+00 
3S2E+00 
148E+00 
933E+00 
718E+00 
503E+00 
2886+00 
3046+00 
320E+00 
335  E+00 
'34‘3‘E+OO 
351E+00 
367E+00 
383E+00 
3986+00 
414E+00 
*4306+00 
445  E+00 
4565+00 
487E+00 
503E+00 
5296+00 
5506+00 
571E+00 
592E+0) 
513E+00 
634E+00 
555E+00 
023E+00 
391E+00 
759E+00 
013E+01 
0506+01 
9856+01 
123E+01 
1605+01 
1976+01 
2J4E+01 
271E+01 
3096+01 
346E+U1 
3346+01 
42 lc+01 
4596+ul 


+90.00 
+ 88.00 
+85.00 
+ 82.00 
+ 79.00 
+ 76.00 
+73.00 
+70*00 
+ 70.00 
+70.00 
+70.00 
+70.00 
+70. 00 
+70.00 
+70.00 
+70.00 
+ 70.00 
+70.00 
+64.00 
+58.00 
+52.00 
+48.94 
+ 46.00 
+ 40.00 
+34.00 
+28.00 
+22.00 
+15.00 
+10.00 
+2.00 
-6.00 
-14.00 
-22.00 
-30.00 
-38.00 
-46.00 
-54.00 
-62.00 
-70.00 
-70.00 
-70.00 
-70.00 
-70.00 
-70.00 
-70.00 
-70.00 
-70.00 
-70.00 
-80.00 
-80.00 
-80.00 
-80.00 
-80.00 
-80. 30 
-80. 00 


+1.000E+00 
+9.9886-01 
+9.924E-01 
+9.8056-01 
+9.6356-01 
+9.415E-01 
+ 9.1456-01 
+8. 830E-01 
+S.830E-0 1 
+8.830F— 01 
+8. 830E-01 
+8.8306-01 
+8.8306-01 
+8.833E-01 
+8.8306-01 
+3.8306-01 
+8.830E-01 
+8.8306-01 
+8.0736-01 
+7.192E-01 
+ 6.2 10  E— 01 
+5;685E-01 
+5.192E-01 
+4.I53E-01 
+3.152E-01 
+2.4576-01 
+1.890E-01 
+1.440E-01 
+1.081E-01 
+7.201E-02 
+4.587E-02 
+2.B52F-02 
+1.697F-02 
+9.712E-03 
+5.325E-03 
+3.5986-03 
+3.5986-03 
+3 . 598E-03 
+3.5996-03 
+3.5986-03 
+3.5986-03 
+3.5986-03 
+3.5986-03 
+3 . 59BE-03 
+3.598F-03 
+3.5986-03 
+3.59RE-03 
+3.8936-03 
+3. 598T— 03 
+3. 5086-03 
+3.5986-03 

+3 . 593F-Q3 

+3. 5986-03 
+3.5936-03 
+3.593P-03 


+4.8)95-35 
-3.9155+00 
-9.7475+00 
-1. 547E+31 
-2.1035+01 
-2. 635E+01 
-3.1395+01 
+0.0005-39 
+0.0005-39 
+0.0005-39 
+0.0005-39 
+9. 0005-39 
+0.0005-39 
+0.0005 -39 
+0.0005-39 
+0.0005-39 
+0.0005-39 
-3.0075+02 
-3.5365+02 
-4. 2045+02 
-4.5395+02 
-4.  6335  + 02* 
-4.6755+02 
-4.  6065V) 2' 
-4. 3375+02 
-2.7975+02 
-2.2535+02 
-1.8085+02 
-1.4335+02 
-1.0295+02 
-7. 038E+01 
-4. 7595  +01 
-3.0515+01 
-1.8955+01 
-l. 1255+01 
+0. 0005-39 
+0.0005-39 
+0.0005-39 
+0.0005-39 
+0.0005-39 
+0.0005-39 
+0. 0005-39 
+0.0006-39 
+0.0005-39 
+0.0005-39 
+0.0005-39 
+0.0)05-39 
+0.0005-39 
+0.0)05-39 
+0.0)05-39 
+0.0005-39 
+0.9)05-3? 
+9.0)05-39 
+0.0905-39 
+0.9)05-39 


+1.3336+00 
+1 ■ 332E+00 
+1. D24E+00 
+9. 912E-01 
+?» 3976-01 
+9.323E-01 
+9.377F-01 
+B.367E-01 
+4. 4>9E— 01 
+3.595E-01 
+3. 087F-01 
+2.7446-01 
+2. 494E-01 
+2.3016-01 
+2.1455-01 
+2.019E-01 
+1.912E-01 
+3.512E-01 
+3 . 332E-0 1 
+3. 950E-01 
+3.9095-01 
+3.3726-01 
+3. 757E-01 
+3. 375E-01 
+2.9176-01 
+ 2*.  3895-01 
+1. 991E-01 
+1.5406-01 
+1.3295-01 
+9.5776-02 
+5.363E-02 
+4. 736E-02 
+3.224E-02 
+2.1226-02 
+ 1 . 3 52c— 92 
+4.0005-03 
+3.9926-03 
+3.9835-03 
+3.973E-03 
+3.7915-03 
+3.511E-03 
+3. 432E-03 
+3. 253E-03 
+3.D75E-03 
+2.398E-03 
+2.7215-03 
+2 . 544E-03 
+ 2 . 3 a 35-03 
+2.193C-03 
+2.0055-03 
+1.3195-03 
+1.5325-03 
+1 . 445E-93 
+ 1 . 259E-03 
+1. 9735-93 


+0.9906-39 
+3.786F-91 
+6.9296-01 
+8.692F-01 
+1. 0396+99 
+1.1816+90 
+1. 3006+00 
+1. 397F+90 
+1. 137F+90 
+ 1. 030F+00 
+9.640E-01 
+9. 174P-01 
+8.9175-01 
+8.530F-91 
+8.2916-91 
+ 8. 0R8F-91 
+7 , 91 IE— 91 
+7. 7586-91 
+8.9726-01 
+9.7446-01 
+1. 006E+00 
+1.005E+90 
+9. 9286-01 
+9.3566-)! 
+8. 4)96-91 
+7.472F-01 
+6.509E-91 
+5. 579E-01 
+4.7096-01 
+3.446F-01 
+2.718E-91 
+1.9756-01 
+1. 381E-01 
+9.329E-0? 
+6.0696-0? 
+4.568F-0? 
+4.5S6F-92 
+4.544F-9? 
+4.5&2F-0? 
+4.524F-9? 
+4.4886-92 
+4. 453F-02 
+4. 429F-92 
+4.3396-02 
+4. 359E-02 
+4.3396-^2 
+4.3926-92 
+4. 7755-9? 
+4.7496-0’ 
+4.724F-9? 
+4. 199F-02 
+4.176F-92 
+4.1 536-°? 

+4.  nir-93 
+4*1 Q9c-92 


+0.0096-39 
+5.427E-05 
+3.9986-04 
+1.O32E-03 
+1.9276-03 
+3. 073 E— 03 
+4.442E-03 
+5.0036-03 
+1. 6306-02 
+2.7616-02 
+3.8416-02 
+4.9216-02 
+5.001F-3? 
+7.081F-02 
+8. 152E-02 
+9.2426-0? 
+1.3326-01 
+1.149E-01 
+ 1 . 398E-01 
+1.5026-01 
+1.7146-01 
+1.7456-01 
+1.756E-01 
+1.715F-01 
+1.594E-01 
+1.454E-01 
+1 . 297E-01 
+ 1.137E-01' 
+9.773E-02 
+7.7R9E-02 
+5.9506-9? 
+4.439E-02 
+3.1896-02 
+2.1996-02 
+ 1 . 464F-02 
+1.1186-02 
+1.1216-0? 
+1.1246-02 
+1.127E-02 
+1. 175 F-0? 
+1.222E-02 
+1.279E-D2 
+1.318F-02 
+1 .366E-02 
+1.414F-0? 

+1.452F-9? 
+1 .510E-02 
+L.553F-02 
+1.606F-0? 
+1.655E-0? 

+1.7036-77 

+1.752F-02 
+1.801F-9? 
+1.850r-9’ 
+1 .803F-97 


+5.9035-02 
+6.5175-92 
+9.3036-02 
+ i:'2026-01 
+1.023E-01 
+3.~914E-0? 
♦4.8826-02 
♦5.5776-02 
+0.0005-39 
+0:OOOE-39 
+0.0005-39 
+0. OOOE-30 
+0. 900E-39 
+0.0006-39 
+0. 000E-39 
+0.0006-39 
+O.OOOE-39 
'+0. OOOE-39 
+0. OOOE-3 9 
'+0:  090E-39 
+0. OOOE-39 
+0. OOOE— 39 
+0. OOOE-39 
+o.  OTTOE— 39* 
+0. OOOE-39 
+ 0.  OOOE-39' 
+0. OOOE-39 
+ 0.  0006-39* 
+0. OOOE-39 
+0. OOOE-39 
+0.0006-39 
+0. OOOE-39 
+0. OOOE-39 
+0. OOOE-39 
+0.0006-39 
+6. OOOF-39 
+0.0006-39 
+0. OOOF-39 
+O.OOOF-39 
+0. OOOF-39 
+0.090E-39 
+0.0006-39 
+0. 0006-39 
+0. OOOE-39 
♦ 0.0006-39 
+9.0906-39 
+0. OOOE-39 
+0. OOOE— 39 
+0.0906-3° 
+°. 0006-3° 
+0.900F-39 
+0.0006-39 
+0. OOOF-39 
+0. OOOF-39 
+9. P90F-39 


XST  W 

+5.3656-03 
+6.  0916-03  “ 
+9.9176-03 

+1.7076-02 

♦ 2.7656-02 

+4. 179 6-02 

+5. 9656—02  

+8.151 E-02 
+3.3666-01_ 
+5.626E-01 
+7.592F-01 
+9.2516-01 
+1.0586+00 
+1.1556+00 
+1.211E+00 
+1. 21*86+00 
+1. 160E+00 
+1.0126+0*0 

+9.345E-01 

+ 9V6  7 2 6-0 1*  ~ 
+9. 588E-01 

+9T5Y86^yr — 

+9.589E-01 

“+97*67  36- OF 

+9.8355-01 . 
+1.00*86+00“ 

+1 . 0406+00 

‘+17079*6+1515 

+1.1 266+00 
+ i;f-9*6E  + 00" 
+1.274E+00 
+1.352E+00 
+ 1 * 427E  + 00 
+07  & 0OF— 39  " 
+0.000E-39_ 

+ 07  0*006-3  9 
+0. OOOE-39 
+0.0006-39 
+0. OOOE-39 
+0. OOOE- 39 

+0.0006-39 

+070006-39 
+0. OOOE-39 

+07tfOOE-39 

+0. OOOE-39 
+0.(30*06-39 
+0.0006-39 
+0.0006-39 
+0.0006-39 
+0. OOOE-39 
+0. OOOF-39 
+0.0006-39 
+0.0006-39 
+0. OOOF-39 
+0.0005-39 


10  +5.0106+00 
JLO  +5.0106+00 

15  *+5.0106+00 

10  +5.0 10E+00 
10  +5.0106+00 
10  +5.010E+00 


+4.7586+00  +1.7616+00  +1.4966+01 
+4.8236+00  +1.3926  + 00  +1.5345  + 01 
+4. 888E+00  +1.0226+00  +1.5716+01 
+ 4.9536+00  +6.5306-01-  +1.5396+01 
+5.0186+00  +2.837E-01  +1.6466+01 
+5.084E+00  +8. 5616-02  +1.5346+01 


-80.00  +3.5936-03 
-83.30  +3.593E-33 
-80.00  +3.5986-33 
-80.00  +3.5936-03 
-80.00  +3.598F-03 
-80.00  +3.5986-03 


+0.0306-39 
+3 . 3)06-39 
+0.0306-39 
+0.0306-39 
+3.0305-39 
+0.0306-39 


+0.373F— 34  +4.0386-02  +1.943F-3?  +O.OOOF-39  +0.0006-39 
+7.3136-04  +4.063F-32  +1.996F-0*  +0.0006-39  +0.')03F-39 
+5.1496-04  +4.0496-02  +2.045F-92  +0.0006-39  +0.0006-39 

+3.?39P-04  +4.030F-0?  +2.394F-02  +0.0006-39  +0.000E-39 

+1.4296-04  +4. 01 IE-02  +2.143F-02  +0.000F-39  +0.0006-39 
+4. 3126-05  +3.993E— 32  +?. 192E-02  +0.0306-39  +0.000E-39 


>831? 


AT  ALPHA  = + 1 . OPQOfc+Ol  ♦ LEFWAPtJt  RW  = 


2.25995+00  OELS 


+ 5.3-.436-03  35HH;< 


l.51BBF+ir 


SEC  XO  L X3  L YB  L SB  L THFTBL  PE/PS  L 

1 +1.899E-02  +G.000F-39  +0.000E-39  +D. OOOE-39  +90.00  +1.000F+00 

l +1.539E-02  +1.904F-04  +2. 1826-02  +2.1825-02  +89.00  +9.997F-01 

1 +6. 8486-03  +3.045E-03  +8.720E-02  +8.72TE-02  +86.00  +9.951E-01 

1 +1. 713E-03  +9.317F-03  +1.523E-01  +1.527F-01  +83.00  +9.851F-01 

1 +O.OOOE-39  +1.899F-02  +2.171E-01  +2.182E-01  +80.00  +0.698E-01 

1 +1.713E-03  +3.204E-02  +2.812E-01  +2.83SE-01  +77.00  +9.494E-01 

1 +6. 848E-03  +4.842E-02  +3.445E-01  +3. 4916-01  +74.00  +9.240E-01 

1 +1. 539E-02  +6.810E-02  +4.079F-01  +4. USE-01  +71.00  +8.940E-01 

1 + l. 899E-02  +7.538E-0?  +4.275E-01  +4. 363E-01  +70.00  +8.830F-01 

1 +2.732E-02  +9.102E-02  +4.683E-01  +4.8006-01  +68.00  +8.B97E-01 

1 +4.259E-02  +1.171E-01  +5.2B3E-01  +5.454E-01  +65.00  +8.214F-01 

___  1 +6.  H8F-02  +1.463E-01  +5.868E-01  +6. 109E-01  +62.00  +7.796F-01 

1 +8.302E-02  +1.785E-01  +6.438E-01  +6.763E-01  +59.00  +7.347F-31 

1 +1.081E-01  +2. 137E-01  +6.990E-0t  +7.4L3E-01  +56.00  +6.R73E-01 

1 +1. 362E-01  +2 .5 17E-01  +7. 523E-01  +8.072E-01  +53.00  +6.378E-01 

3 +1.675E-01  +2.924E-01  +8.035E-01  +8.727E-01  +50.00  +8.868P-01 

3 +5. 601F-0 1 +7 . 972E-01  +1.405F+00  +1.6585+00  +50.00  +5.868E-31 

3 +9.527E-01  +1.302F+00  +2.006E+00  +2.443E+00  +50.00  +5.868E-01 

3 +1 . 345E+00  +1.807E  + 00  +2.608F+00  +3.2236+00  +50.00  +5.86aE-r>l 

3 +1.738E+00  +2.311 F+00  +3.209E+00  +4.0135+00  +50.00  +5.R68E-01 

““3  + 2.  I30E+00  +2. 816 F+00  +3 .811E+00  +4.  799E+00  +50.00  +5.B68E-01 

_ 3 +2. 52  3E+00  +3.321E+00  +4.412E+00  +5.5346  + 00  +50.00  +5.8686-01 

3~‘+2. 916E+00  +3.825E+00  +5.014E+00  +6.359E+00  +50.00  +5.B635-01 

3 +3. 308E+00  +4.330E+00  +5.615E+00  +7.154E+00  +50.00  +5.868E-D1 

i "3“+3.7'01E+00  +4.335F+00  +6. 217E+00  +7.9395+00  +50.00  +5.8686-01 

O'  4 +4- 093E+00  +5.340E+00  +6.818E+00  +8.725E+00  +50.00  +5.R68E-01 

i ~ 4”~+4. 093E+00  +5.341E+00  +6.821F+00  +8.7275  + 00  +48.94  +5.6856-01 

_4  +4. 102E+00  +5.350E+00  +6.830E+00  +8.740E+00  +44.00  +4.844E-01 
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+3 .367E-02 
+2.0396-02 
+1.1 °4E-0? 
+6.72BE— 03 
+3.627E-03 
+3.593E-03 
+3.598E-03 
+3.598E-03 
+3.598E-03 
+3.598E-03 
+3.598F-33 
+3.598F-03 
+3. 5986-03 
+3.598E-03 
+3.598E-03 
+3.5986-03 
+3.593E-03 
+3 . 598E-03 
♦ 3 .59RE-03 
+1.5996-03 
+3.59RE-03 
+3.5936-03 
+3.593F-03 
+3. 5°3E-03 
+3 . 59BF-03 
+3.598F-03 
+3.593F-Ci3 


+ 4.839E.-3S 
-1.9595+00 
-7.8125+00 
-1.3595+01 
+0.0005-39 
+0.0005-39 
+0.0005-39 
+0.0005-39 
+0.0005-39 
+0.0005-39 
+0.0005-39 
+0.0005-39 
+0.0005-39 
+0.0003-39 
-l . 6005+02 
-2.4795+02 
-3. 2495+02 
-3.R78E+02 
-4. 337E+02 


+L. 1235+00 
H. 1275 +013 
+1.1215+00 
+3. S93E-OI 
+'3.4445-01 
+3.229E-01 
+2.5345-01 
+2. 1975-01 
+1.9396-01 
ft. 7536-01 
+1.5115-01 
+1.4993-01 
+ L . 40  7E-01 
+1.3306-01 
+2.992E-01 
+3.538E-01 
+4.0535-01 
+4.357E-01 
+4.434E-01 


-4.6065+02  +4.3756-01 
-4.6333+32  +4.4135-01 
-4.6756+02  +4.1226-01 
-4.539=  + 02*  +3.5665-01 
-3. 310E+02  +3. 0946-01 
-2.6555+02  +2.6006-51 
-2.1423+02  +2.1605-01 
-1.537E+02‘+l. '6276-01 
-1.  1485+02  + 1 .2015-01 
- 8".  04  3z"+TI  +T.1>  91 3-02 
-5.4723+01  +5.9945-02 
-3.5303+01  +4.0465-02 
-2.2545+01  +2,6715-0? 
-1.3793+01  +1.7215-02 


-8.0375+00 
+0.0005-39 
+0.0003-39 
+0.0003-39 
+0.0003-39 
+9.0005-39 
+5.0003-3? 
+0.0002-39 
+0.0002-39 
+0.0003-39 
+0.0003-39 
+0.0003-39 
+0. 0003-39 
+0.0003-39 
+0,0003-39 
+9. 7002-3? 
+0.0093-39 
+3.0092-39 
+0.0002-39 
+0. 0092-39 
+9. 0002-39 
+9. 0002-39 

f 0.O0n=-39 


+1.0315-02 
+4.916E-03 
+4.9043-03 
+4,5976-03 
+4. 493--03 
+4. 2895-03 
+4.0335-03 
+3.33BE-03 
+3.S39E-03 
+3.4915-03 
+3.2943-03 
+3. 0995-03 
+2.9022-03 
+2.5175-03 
+2. 4735-93 
+2. 2693-03 
+2. 04SP-93 
+1.3345-03 
+1.521E-03 
H. 4075-03 
+ 1. 1975-43 
+9. 3496-04 
+7.7305-14 


+ 0.0''0£-39 
+3.251F-91 
+7.4426-91 
+8. 049F-11 
+ ?;’859E-01 
+7.266E-01 
+6.473F-91 
+6.018E-91 
+5.706E-01 
+5. 477E-0I 
+5.7R5E-D1 
+5, 131F-91 
+5.991F-01 
+4.888F-01 
+4. 789E-91 
+5.7346-01 
+8. 2486-01 
+9.323F— 91 
+9.946E-01 
+1.011F+90 
+ 1. 00OP+9<? 
+9.833F-91 
+9. 131E-01 
+8.2395-01 
+7.273E-01 
+6.3176-91 
+ 5.I996F-01 
+3.987E-01 
+3. 019F-01 
+2.220E-91 
+1. 576E-01 
+1.084F-01 
+7.?l?E-9? 
+ 4.616F-02 
+4. 587F-02 
+4. 5R5E-92 
+4.546P-0? 
+4. 5195-02 
+4.473E-02 
+4. 440E-02 
+4. 4076-92 
+4. 376s-92 
+4.347E-92 
+4. 31 8E-02 
+4.29LE-92 
+4. 255E-32 
+4.739E-92 
+4.214F-0? 
+4. JR9F-07 
+4. 1 66r-9? 
+ 4.  144r-9  2 
+ 4.  1 ■*  26—97 
+4.niF-97 
+4. OROF-O? 
+4. 141F-97 

+4.941F-1? 


7336- 
i 233F- 
,5416- 
,92  35- 
, 6 03F- 
,3576- 
,3116- 
. 8876- 
,4636- 
,0396- 
,6146- 
,1906- 
, 766F- 
, 342E- 
,9176- 
,1786- 
.2046- 
, 436E- 
,6036- 
.5976- 
,7056- 
,7116- 
, 546E- 
, 529E- 
.3856- 
.2326- 
, 022E- 
, 219E- 
, 3"$TE: 
.8166- 
,5036- 
. 457F- 
,67?E- 
, 099F- 
,9956- 
.793  F- 
.1466- 
, 1945- 
.247E- 
.2906- 
.3336- 
, 3R6E- 
. 434E- 
, 437E- 
, 530E- 
. 577  F- 
.5265- 
. 675  F- 
,7746- 
.773E- 
, 322F- 
. 870F* 
.910g- 
► 9*>Rr- 
.-M76- 
.0566- 


+0.990E-39 
+O.OOOE-39 
+ 0. OOOF-39 
+0. 090E-39 
+o:oooe-3'9 
+O.OOOE-39 
+0. 000E-39 
+0.000E-39 
+0. OOOE-39 
+9.000E-39 
+9. OOOF-39 
+0. OOOE-39 
+0. OOOE-39 
+0. OOOE-39 
+0. OOOE-39 
+0. OOOE-39 
+0. OOOE-39 
+0. OOOE-39 
+0. OOOE-39 
+0. OOOE-39 
+0. OOOE-39 
+0.0006-39^ 
+0. OOOE-39 
+0. OOOE-39 
+0. OOOE-39 
fO.OOOE^ 
♦0. OOOE-39 
+0. OOOE-39 
*D  YO  006^39 
+0.0006-39 
+0. ODOE-39 
+0. OOOE-39 
+0.900E-39 
+0. OOOF-39 
+0. OOOE-39 
+0.0006-39 
+0.000E-39 
♦0. OOOF-39 
+0. OOOE-39 
♦0.0005-39 
+0. OOOF-39 
+0.0005-39 
+O.OOOE -39 
+0. OOOE-39 
+0. OOOE-39 
+0. OOOE-39 
+0. 3005-39 
+0. OOOF-39 
+9. 0905-39 
+0. OOOE-39 
+0.900c-39 
+0. OOOF-39 
+0. OOOE-39 
+0. OOOF-39 
+0. OOOE-39 
+0. OOOF-39 


+0.0006-39 
+0.0006-39 
+0. "000 6-39  " 
+0.0006-39 
+'0:'0'0  05-39'“ 
+0. OOOE-39 
+OTOb0E-39 
+0. OOOE-39 
+0.O006^W 
+0. 0006-39 
+0. OOOE-39  " 
+0.0006-39 
+0.0006-39  ' 
+0.0006-39 
+0. "OOOE-39  ‘ 
+0. OOOE-39 
+o;W06=39~ 
+0.0006-39 
+'0. OOOe-39  ' 
+0. OOOE-39 
♦0^06-39 
+0.0006-39 
+0. OOOE-39 
+0. OOOE-39 
+0.0006-39 
+0.0006-39 
+0.0006-39 
+0. OOOE-39 

+0. OOOE-39 
+0. 0006-39 
+0.000Ej^39 
+0. OOOE-39  ‘ 
+O.OOOE^39_ 
+0. OOOE-39 
+0. OOOE-39 
+0. 0036—39 
+0. OOOE-39 
+0. OOOE-39 
+0.0006-39 
+0i OOOF-39 
+0,0006-39 
+ 0'.  OOOE-39 
+0.000E-39_ 
+ 0".  0006-39 
+0. 0006-39 
+0.0006-39 " 

+0. OOOE-39 
+O.ODDE-39 
+0. OOOF-39 
+0. OOOE-39 
+0. OOOE-39 
+0.0036-39 
+0. OOOE-39 
+0.0006- 39 

+0. OOOF-39 


10  +5.010E+00 
10  +5. 010E+00 
10  + 5 • 010E+00 
10  +5. 010E+00 


+4.912F*00 
+5.040E+00 
+5.16RE+00 
+5 . 297E+00 


+9.338E-01 
+5.  S14E— 01 
+2.2906-01 
+ 1.2346-01 


U.624Ef01 
+ 1.&62S*-01 
+1. 599E+01 
+ 1.  73754-31 


-70.00  + 3.59<3F-03 
-70.00  +3 . 593E-03 
-70.00  +3.>j9aE-03 
-73.00  +3.  <>936-33 


f 0.030!-33 
O.  OOOE-39 
*■0. OOOE-39 
O. OOOE-39 


4-5.612E-04 
f3.V9*E-74 
*1. 376E-04 
*7.U5fc-05 


«-4.07?F-0?  +7.11 4E-0?  +0. 9D0F-39  +0, 
f4.03^r-T2  +2.163E-32  »-0.0Dnc-39  +0. 
+3.934E-4?  +2.212E-02  +0.0006-34  +0. 
+3.94R6-77  +7. 7f,l  F-02  +0,7046-39  4-0. 


,0006-39 

0006-39 

OOOF-39 

OOOE-39 


>z<t& 


AT  ALPHA  = +2.00006+01,  LEEWARD,  RW  = +L.  ■52376+00  DELS  = +7.45056-07  3SH))< 


+5.43186-31 


EC  X0  L 

1 +7. 538E-02 
1 +6.118F-02 
1 +4.2596-02 
1 +2.7326-02 

t*!".  5396=02 

1 +6.848E-03 
“I  + 1.7I3E-03 
1 +0. OOOE-39 
~1”+1 .713E-03 
1 +6.848E-03 
t-*i;'5396-*02 
1 +2.7326-02 

l +6.118E-02 
I +7^538E-02 
1 +8.3026-02 

1 +1. 0816-01 
-T'TI.3€ZF-01 
3 +1.675E-01 
“3*  +t>.  6U1E-0 1 
3 +9*  527E-0 1 
-3'¥n345E+’00 
3 +1.7386+00 

3 +2. 5236+00 

3 +3. 308E+00 


4 +4. 093E+00 
~4^4TT02E+0(r 
4 +4. 112E+00 
~4  “ +4  -T2~3£ +0  0 
4 +4.1356+00 
4'+4^T46F+CT0" 
4 +4. 162E+00 
“”4— + 4.'  1776+00 
4 +4. 192E+00 
4 +4. 208E+00 
8 +4.223E+00 
“8  + 4.2446+00 
8 +4. 2656+00 
8 +4.  284E+00 
8 +4. 303E+00 
8 +4.  320E+DQ 
8 +4. 3356+00 
8 +4.3486+00 
8 +4. 358E+00 
B +4.3666+00 


XB  L 

+0. OOOE-39  +0. 
+7.6156-04  +4. 
+4.7576-03  +1. 
+ 1.2166-02  +1. 
+2.2976-02  +2. 
+3.7136-02  +3« 
+5.462E-02  +3. 
+7.5386-02  +4. 
+9.937E-02  +4, 
+ 1.265E-01  +5. 
+1 . 567F-01  +6. 
+1  ■ 899E-01  +6, 
+2. 261E-0I  +7. 
+2.650E-01  +7. 
+27924E-01  +8, 
+ 3.0666-01  +8. 
+3 1075  E-T)  r ‘ + 8 . 
+3.5086-01  +8. 
+3. 975E-01  +9. 
+4.465E-01  +9. 
+ 1:0486+00  +1^ 
+1. 650E+00  +1, 
3-272576+00  ~TZ: 
+2.852E+00  +2. 
+3".454E+00~+3". 
+4.0556+00  +3, 
+4. 6 57 E+00  +4’, 
+5.258E+00  +4. 

.8606+00'  +5. 
+6.461 E+00  +6, 
"+6.474E+00  +6'. 
+6.4876+00  +6, 
+6.502E+00  +6, 
+6.5 17E+00  +6. 
'♦S'.  5326+00  +6. 
+6. 547E+00  +6. 
+6.5636+00  +6. 
+ 6.  579E+00  +6. 
+6.5946+00  +6. 
+6.&09E+00  +6. 
+6.628E+00  +6. 
+6. 646E+00  +6. 
+6 . 662E+00  +5, 
+6.6766+00  +5. 
+6.688E+00  +5. 
+6.6976+00  +5. 
+6.7036+00  +5. 
+6. 7076+00  +5. 
+6.7086+00  +5. 


Y8  L 

OOOE-39  +0. 
36  2E-02  +4. 
0896-01  +1. 
7406-01  +1. 
■385E-01  +2. 
1 024E-01  +3. 
655E-01  +3. 
275E-01  +4, 
884E-01  +5, 
480E-01  +5, 
0606-01  +6. 
■624E-01  +6, 
1706-01  +7. 
.6966-01  +B- 
0356-01  +8. 
201E-01  +8, 
2116-01  +8, 
683E-01  +9. 
142E-01  +1, 
576E-01  +1, 
462E+00  +1, 
967E+00  +2. 
‘472  E+00  +3. 
9766+00  +4. 
481E+00  +5; 
9866+00  +5, 
491E+00  +6, 
995E+D0  +7, 
5006+00  +8, 
005E+00  +8. 
014E+00  +8. 
O22E+0O  +8. 
0296+00  + B< 
0346+00  +9, 
0386+00  +9, 
039E+00  +9. 
040E+00  +9. 
0386+00  +9. 
035E+00  +9« 
031E+00  +9. 
022E+00  +9, 
011E+00  +9. 
998E+00  +9. 
982E+00  +9« 
965E+30  +9, 
9466+00  +9. 
9266+00  +9, 
9056+00  +9, 
885E+00  +9. 


SB  L THETRL  PF/PS  L OP/DS  L 


000F-39 
3536-02 
0916-01 
7456-01 
4DOE-01 
054E-01 
7396-01 
3536-31 
0186-01 
572E-01 
3276-01 
9816-01 
53SE-01 
2906-01 
7276-01 
945E-01 
959E-01 
599E-01 
025E+OD 
091 E+00 
875E+00 
661 E+00 
4456  + 00 
232E+00 
017E+W 
8026+00 
5S7E+0*0 
372E+00 
1536+00 
943E+00 
9596+00 
974E+00 
9906+00 
006E+00 
0216+00 
037E+00 
053E+00 
063E+00 
0846+00 
100E+00 
1216+00 
142E+00 
1636+30 
1846+00 
205E+00 
2256+03 
2466+00 
2676+00 
2886+00 


+90 
+ 88. 
+ 85 
+ 82 
+ 79. 
+ 76. 
+73. 
+70. 
+ 67. 
+64. 
+ 61. 
♦58. 
+ 55. 
+ 52. 
+ 50. 
+49, 
+ 48. 
+ 46, 
+ 43. 
+ 40. 
+ 40. 
+40. 
+ 40. 
+40, 
+ 4*0. 
+40, 
+40. 
+ 40. 
+40, 
+ 40. 
+ 34, 
+ 28, 
+22. 
+ 16. 
+ 10, 
+4. 
-2, 
-8. 
-14, 
-20, 
-28, 
-36. 


00  +1. 
00  +9. 
00  +9. 
00  +9. 
00  +9. 
00  +9. 
00  +9. 
00  +8. 
00  +8. 
00  +8. 
00  +7, 
00  +7, 
00  +6. 
00  +6. 
00  +5. 
00  +5, 
94  +5. 
00  +5. 
00  +4. 
00  +4, 
00  +4, 
00  +4. 
00  +‘4. 
00  +4, 
00  +4, 
30  +4, 
00  +4. 
00  +4, 
00  +4, 
30  +4. 
00  +3. 
00  +2. 
00  +1, 
00  +1, 
00  +1. 
30  +8. 
00  +5. 
00  +4, 
00  +2, 
00  +1. 
00  +1. 
00  +6, 
00  +3. 
00  +^. 
00  +3, 
00  +3. 
00  +3, 
00  +3. 
00  +3, 


003F+00 
9836-01 
924E-01 
8056-01 
6 36 E— 31 
4156-01 
1456-01 
8336-01 
4736-01 
078E-01 
6506-01 
19ZE-01 
7136-31 
2106-01 
8686-01 
.696E-01 
,6856-01 
1926-01 
6706-31 
> 153E- 01 
.153E-01 
153E-01 
153E-0r 
153E-01 
. 153E-01 
153E-01 
1536-01 
1536-01 
,1536-01 
,1536-01 
152E-01 
457E-01 
8936-01 
443E-31 
08LE-01 
0016-32 
7696-02 
, 1 02E-0? 
867E-32 
,9556-02 
, 1 39E-02 
,3786-03 
,5936-03 
,5936-03 
,5936-33 
5986-03 
5986-03 
,5986-03 
593F-D3 


8396-35 
91 5=  03 
7476+33 
5476+31 
,103=  + U 
5356+31 
, 1396+3 1 
,6386+31 
.0386+31 
,4236+31 
, 7506  + 1 1 
,0456+31 
.2746+31 
,4456+31 
,5286+31 
,5586+31 
, 5506  + 31 
,6106+31 
,5996+31 
, 03D6-39 
,3305-33 
, 0306-39 
,0306-39 
,0306-33 
.0305-39 
,0306-33 
,0305-33 
,0306-39 
,0305-33 
,0)06-39 
, 3376+32 
,7976+32 
. 25  35+32 
.8385+32 
,4385+32 
.122E+32 
,5736+31 
,4566+31 
,7333+31 
,4566  + 31 
.1756+31 
.3163+31 
,0306-39 
. 0305-39 
.0305-39 
.0305-39 
.3306-39 
.0305-39 
.3335-33 


X ST 


Y ST 


31  L 

+1.1236+00  - 

+1.1256+30  ^ 

+1.1135+00  h 

+9.5756-01  H 

+9.7556-01  h 

+9.7306-01  • 

+9. 5356-01  • 

+9.4156-01  - 

+9. 1756-^1  • 

+3.3946-01  ■ 

+ 3.5756-01  -1 

+3. 2236-01  • 

+7.3436-01  J 

+7 . 429E-01  ■ 

+7. L47E-91  - 

+7.3356-01  - 

+7.3316-01 

+5.5416-01 

+5. 355E-D1 

+5.1455-01 

+3.3556-31 

+3.2955-31 

+n9335-01 

+2.5716-01 

+2.470E-01 

+2. 3396-01 

+2.1755-01 

+2.3535-01 

+1.957E-31 

+L. 8836-01 

+2.5435-01 

+2.1526-31 

+1.3345-31 

+1 • 4B3E-01 

+1.2095-01 

+9.73JE-32 

+7.5316-32 

+5.9326-02 

+4.5256-32 

+3.4376-9? 

+2.225E-02 

+ 1.45  3E-D2 

+3.45  2F-03 

+3.4436-93 

+3.4335-33 

+3.4226-03 

+3.4135-33 

+3.3986-03 

+3.3855-03 

SECT  ALPHA 


395F-01 
*'79F-°  l 
432F-91 
339F+30 
1816+00 
39QP+00 

3976+90 
47RF+90 
, 535F+T9 
•>766+39 
, 599F+90 
6065+30 
596F+70 
531=+93 
•iTCK+O^ 
.870F+00 
. 5306+00 
, 478F+90 
, 49RF+30 
, 253F+30 
, 178E+90 
, 11 8F  + 00 
, 073E+30 
, 03  7E+90 
,0086+30 
.825F-31 
, 6Q6F— 01 
.4136-31 
.242F-91 
,7986-31 
,3746-31 
►4236-01 
, 506F— 01 
.538F-31 
, 848F-01 
,1196-31 
, 491 c— 31 
, °5  ftp— 3 1 
, 505^-31 
, 0 3 I F— 9 1 
,8?9r-l2 
, 5I9F-32 
, 509F-12 
,5366-32 
,594c‘-3P 
. 502F-3? 
, 5 OOF -0  2 
, 490c-9? 


+0.309F- 
+7.745F- 
+4.  R18F- 
+ 1.032E- 
+1.927F- 
+3.0786- 
+4.4426- 
+6.0C3F- 
+7.7185- 
+9.8476- 
+1.144E- 
+1.3356- 
+ 1.524F- 
+1.7056- 
+ 1.817F- 
+ 1.B71F- 
+1.374E- 
+2.013E- 
+2.  142F- 
+ 2.237E- 
+3.848E- 
+5.45BE- 
+7i  0636- 
+8.5796- 
+T.029E- 
+ 1.1936- 
+1.381F- 
+ 1.512F- 

+ r.573F- 

+ 1.834E- 
+1.7046- 
+1.5546- 
+ 1.386E- 
+1.2146- 
+ 1.045F- 
+8.S38F- 
+7.305F- 
+5.944F- 
+4.755F- 
+3.723F- 
+2.5116- 
+1.7676- 
+1.1936- 
+1.1956- 
+ 1.  193F- 
+1.201F- 
+ 1.204F- 
+1.2056- 
+1.209F- 


•39  +8. 
•35  +7. 
•04  +6. 
•93  +4. 
93  +2. 
-03  +0. 
•03  +3. 
■03  +3. 
•03  +9. 
■03  +0. 
32  +0. 
■32  +0. 
92  +0. 
•07  +0. 
•32  +3. 
•02  +0. 
•0?  +0. 
02  +0. 
-92  +0, 
-02  +0. 
■0*~  +0, 
-32  +0. 
02“+ O; 
■02  +0, 
■01  +"0~ 
■01  +0, 
■31  +0, 
•31  +0. 

■01  +0. 

■91  +0. 
■01  +0. 
■01  +0, 
■01  +0, 
-01  +0, 
•01  +0. 
-32  +0. 
-0?  +0, 
■32  +3« 
■0?  +0, 
-02  +9. 
-02  +0. 
■32  +3. 
-3?  +0. 
-02  +0, 
-9?  +0, 
-O’  +0. 
•0?  +3. 
-37  +9. 
■9?  +0. 


197  = - 
0906 
091F- 
4805- 
0556- 
0006' 
0306- 
OOOE- 
OOOE 
OOOE- 
3O05' 
OOOF 
330E' 
OOOF 
330E' 
0006 
OOOE 
OOOE 
OOOE 
OOOE 
00*06' 
OOOF- 
0006 
OOOE 
oMf 
3306 
OOOE 
33DE- 
OOOE- 
OOOE' 
0006- 
OOOE- 
OOOE- 
OOOE- 
0006- 
OOOE- 
OOOE- 
OOOE- 
OOOE' 
OOOE- 
0006- 
OOOE- 
OOOE- 
OOOE' 
30PF- 
0306- 
0005 
OOOF' 
OOOF- 


01  +7.4506-02 
01  +7. 461 F- 02 
01  +7.5176-02 
01  +7. 526E-02 
01  +7.793E-02"  ‘ 

39  +B. 0286-02 
39  +8.343F-02" 

39  +8. 750E-02 
39  +9.2656-02 
■39  +9.902E-OZ 
39  +1.0536-01 
39  +1 • 161E-01 
39  +1.2736-01 
39  +1.403E-01 
39  +1.502E-01 
89  +1.5556-01 
■39  +1.5586=131 — 
•39  +1.731E-01 
•39  +1.9326-01 
■39  +2.1636-01 

•3$  *+4.0176-01 

■39  +5.09B6-01 
-3<r+fT.T94E-01 
•39  +6.2696-01 
•39'T6.‘6WP:0r — 
39  +5.3466-01 
■39‘  +7.‘O2I6::0I 
39  +7.147E-01 

■39"+7.235^3r 

39  +7.297E-01 

■39“+7.>5T6=0r 

•39  +7.505E-01 
■39  +7.7676-01 
■39  +8.1536-01 
■39  +8.  689E-01  ‘ 

■39  +9.415E-:0l  * 

■3  9 +1. 0396+00 
■39  +1.1716+00 
■39  +1 . 355F+00 
■39  +1.6216+00 
■39  +2.2156+00 
■39  +3.5076+00 
■39  +8.0986+05 
■39  +P.  000F-39 
■39  +0.0006-39 
■39  +0.0006-39 
•89  +0.  000F-39 
■3®  +n. 0006-39 
■39  +0.0006-39 


16  +2.130466+00  +4.02500E+00  +4.58)486+00  +O.OOOOOC-30  +5.0)0005+51  3 +30. *0 

IW  SN  XOW  SN  YOW  5N  XBH  SN  YBW  SRW  SN|  THEM  SN  ^FOT  ALPHA 


13  +4.16234E+00  +7.48703E+0D  + 3. 6901  *>=-02 


•4. 02451E+00  +4.03348  = 03 


4.B9372E+01 


4 +30.00 


IL  SN  XOL  SN  YOl  SN  XBL  SN 


YRL  SN  SBL  SN  THEfL  SN  SECT 


ALPHA 


20  +!• 538966—02  +1.95S43E-01  +3.D7513E-3L 


+4.747O9E+00  +4.82133-+33 


*-4.  373725+01 


1 +30.00 


AT  ALPHA  = +3.00006+01  WINDWARD,  RW  = +L.3235E+01  DELS  = + 1. 38 15F+00  33-n:<  = -7.71Q5F+T' 

THETAW  LESS  THAN  LIMIT 


SEC  XO  W XB  W 


YB  W 


SB  W THETBW  PE/PS  W OP/OS  W 


(IT  H PE  W OR  W 


3 +2.13OF+00  +0.0006-39  +0.000E-39  +O.QDOE-39  +90.00 
" 3 +2.  523E+00  -T.451E-09  +7.852E-01  +7.S52E-01  +90.00 

3 +2.9I6E+00  -2.2356-08  +1.570E+00  +1.570E+00  +90.00 
" “3  +3.308E+00  -1.490E-08  +2.356E+00  +2.3556+00  +90.00 

3 +3.701E+00  -1.490E-08  +3.141E+00  +3.141E+00  +90.00 
"4  +4.093E+00  +0.000E-39  +3.926E+00  +3.926E+00  +9 0.00 
_ 4 +4. 102E+D0  +8.217E-04  +3.942E+00  +3.942E+00  +84.00 

4 +4. 112F+00  +3.2786-03  +3.957E+00  + 3.957E+00  +78.00 
4 +4. 123E+00  +7.34IE-03  +3.9726+00  +3.973E+00  +72.00 

~4~+4.135E+00  +1.297E-02  +3.987E+00  + 3. 9896  + 00  +66.00 

4 +4. 148E+00  +2.0106-02  +4.001E+00  +4.0056+00  +60.00 

4"  +4.~1626+00  +2.865E-02  +4.014E+00  +4.0206+00  +54.00 

4 +4. 162E+00  +3.690E-02  +4.025E+00  +4.  333E+00  +48.  94 

7T+'4.177E+00  +3.8536-02  +4.0266+00  +4.0366+00  +48.00 
4 +4.192E+D0  +4. 963E-02  +4.037E+00  +4.052E+00  +42.00 
4"  +4.2086+00  +6i 183E-02  +4.0476+00  +4.067E+00  +36.00 
8 +4.P23E+0D  +7.500E-02  +4.056E+00  +4.0836+00  +30.00 
8 +4.2446+00  +9 .38  IE-0  2 +4.0656+00  +4.1046+00  +22.00 

8 +4.265E+00  +1.137F-0I  +4.0726+00  +4.1256+00  +14.00 

'8  +4.2846+00  +1. 3436-01  +4.0756+00  +4. 1456+00  +6.00 

8 +4.3036+00  +1.552E-01  +4. 076E+00  +4.1676+00  -2.00 

'0  +7U320E+00  +1.760E-01  +4.074E+00  +4.183E+00  -10.00 

• 8 +4. 335E+00  +1.9646-01  +4. 069E+00  +4.2096+00  -18.00 

tx>  8 +4. 3*4§E+06  +2. 158E-01  +4.061E+00  +4.230E+00  -26.00 

* 8_+4^358E+00  +2 .3 39 £—01  +4.050E+00  +4. 2516+00  -34.00 

8 +4.366E+00  +2.5046-01  +4.037E+00  +4.2726+00  -42.00 

9 +4.3716+00  +2.6496-01  +4.0226+00  +4.293E+00  -50.00 
9 +4V435E+00  +5.016E-01  +3.7406+00  +4.5616+00  -50.00 

__  9 +4.4996+00  +7.383E-01  +3.4586+00  +5.029E+0 0 -50.00 
*9' +4.5636+00  +9.7496-01  +3.176E+00  +5.3976  + 00  -50.00 
9 +4.6276+00  +1.212E+O0  +2.894E+00  +5.7656+00  -50.00 
9 +4.6916+00  +1.4486+00  +2.6126+00  +6. 1336+00  -50.00 

9 +4.7556+00  +1.6856+00  +2.3306+00  +6.5026+00  -50.00 

9”+4 . 8 1 9E+0 0 +1.922E+00  +2.0486+00  +6.8736+00  -50.00 
9 +4.883E+00  +2.1586+00  +1.7666+00  +7. 23BE+00  -50,30 
9+4. 9476+00  +2. 3956+00  +1.4846+00  +7. 5356+00  -50.30 

10  +5.0106+00  +2.6326+00  +1.2026+00  +7.974S+00  -60.00 

IS'+S.OIOE+OO  +2. 819E+00  +8.771E-01  +8.3496+00  -60.00 
_ 10  +5.010E+00  +3.0076+00  +5.5236-01  +8.724E+00  -60.00 
lir+5'.010E+00  +3.1946+00  +2-2766-01  +9.0996  + 00  -60.30 
10  +5.0106+00  +3 . 382E+00  +9.7206-02  +9. 4746+00  -60.30 


+1.000E+00 
+ 9.978E-31 
+9.8456-01 
+9.400E-01 
+B.309E-01 
+6.105E-01 
+6.0466-01 
+5.985E-01 
+5.925E-11 
+5. 8646-31 
+5.801 F— 3 1 
+5.739E-01 
+5.6856-01 
+5.5396-31 
+4. 4976-01 
+3.473E-01 
+2.7066-01 
+1.9156-31 
+1.3266-31 
+8.9156-02 
+5. 8146-02 
+3.6606-32 
+2.2206-32 
+1.2 966—02 
+7.2646-03 
+3. 889E-03 
+3.598E— 03 
+3.598E-03 
+3.598E-03 
+3.598E-03 
+3.598E-03 
+3. 598E-03 
+3.598F-03 
+3. 5936-03 
+3 . 598E-03 
+3.5986-03 
+3.5Q8C-03 
+3.593E-33 
+3.593F-03 
+3. 598E-03 
+3.598F-03 


+ 4.  83  9 : - 3 5 
-4.946E-31 
-2.  1346  + 33 
-5. 2523+33 
-1. 392E+01 
-2.6353+31 
-2.667E+31 
-2. 6986+31 
-2.7293+31 
-2.  7506  + 3 1 
-2.7923+31 
-2.8246+31 
-2.8513+31 
-4.6523+32 
-4.6526+32 
-4.4496+32 
-3.0376+32 
-2.2786+32 
-1.6916+32 
-1. 2256+32 
-8.6276+31 
-5.8595+31 
-3.8496+31 
-2. 4315+31 
-1-47  4E+31 
-8.5446+33 
+3.030E-39 
+3.0306-39 
+ 3.0303-3? 
+3.0306-39 
+0.0306-39 
+3.0306-39 
+3.0306-3? 
+3.0306-3? 
+3.0305-39 
+3.0306-39 
+0.0306-39 
+3.3305-3? 
+3.0305-39 
+3.0305-3? 
+3.0305-39 


+L. 7176-01 
+1.7135-01 
H.  597E-01 
+2.5945-01 
+2.5976-01 
+2. 5185-01 
+2.5376-01 
+2.527E-D1 
+2.5156-01 
+2.535=-7i 
+2.4935-31 
+2.4896-01 
+2.4^95-31 
+3. 166=-91 
+2.37*5-01 
+2.5?3£-01 
+2.399=-01 
+1.5356-01 
+1.2495-01 
+?. 244c-0? 
+5. 5385-02 
+4.5135-02 
+ 3.  U5C-02 
+2.3456-02 
+1.335E-02 
+ 3.12  3E-03 
+3.5795-03 
+3.3236-03 
+3.3536-03 
+2.3386-03 
+ 2.  55  5E-03 
+ 2.  3036 -r,3 
+2. 3526-03 
+L.332P-03 
+1.5536-03 
+1.3055-03 
+1. 3555-03 
+7. 7375-04 
+4.3536-04 
+1.9996-04 
+3.5416-05 


♦ 0. .0006-39 
+2.408F-01 
+3.613r-01 
+7.T71F-01 
+ 1.05  3F+09 
+1. 1T0F+0O 
+1. 170F+00 
+1.1596+30 
+ 1.  16RF+00 
+1. I46F+0O 
+ 1.U5F+39 
+1 .163P+00 
+1. 142F+T0 
+1 .159r+39 
+ 1.  nor*->9 
+ 1.0136+->0 
+9. 053F-01 
+7.559r-0T 
+6.132F-01 
+4. 8 l 3C-01 
+3. 551F-71 
+2.5945-01 
+ 1 . 916E-31 
+1.317F-01 
+8.725F-92 
+5.559F-0? 
+5. 24RF-02 
+ 5.  1536-32 

+5. OR 5C-9? 

+ 5,013c-'12 
+4.9436-3? 
+4.8376-07 
+4. 830F-3? 
+ 4.  7776-3  "> 
+4.728c-3° 
+4.431c-0? 
+4.637f-9? 
+ 4. 

+ 4. 554'*-3? 
+4, 51  *»■"-*  " 
+ 4. 4‘nr--»? 


+9, 00^6-39 
+1.3536-03 
+5.340F-03 
+2.397F-02 
+5.03?F-07 

+8. J08E-02 
+8 . 160E-02 
+R.210F-02 
+8. 259E-02 
+8.307F-02 
+8.3546-32 
+8.400F-0? 
+8.47RE-02 
+8. 465F-07 
+8.424E-02 

+7.9PIF-02 
+7.3436-02 
+5. 3486-02 
+S.377F-07 
+4  , 31 3F-0? 

+3.3786-0? 
+2.557E-0? 
+1 .970F-02 
+1.3206-02 
+8.9816-03 
+5. 870E-03 
+5 . 587F-03 
+6.O57F-03 
+4. 545F-03 
+7.O75F-03 
+7.SO8F-03 
+ 7 * 9R4F-03 
+R.443E-''3 
+9.O47F-03 
+9,4926-03 
+9.9I31F-03 
*1. 333r-02 
+1. 0P7F-09 
+ 1 . nAF-n? 

+1. 184C-03 

+1.P33E-02 


+I.R20F+01 
+1.239F+01 
+8.4376+00 
+0.0006-39 
+0. 000E-39 
+0.0006-39 
+0.0006-39 
+0.0006-39 
+0.0006-39 
+0.0006-39 
+0. OOOE-39 
+0. OOOE-3q 
+0.0006-39 
+0.000F-39 
+0.0006-39 
+0.0006-39 
+0.0906-39 
+0.0H0E-39 
+0.0006-39 
+0.0006-39 
+0.0006-39 
+O.OOOE-39 
+0.0006-39 
+0.0006-39 
+0.0006-39 
♦0.0006-39 
+0.0006-39 
+0.0005-30 
♦O.DopE-Rq 
+0.0006-39 
+3.000F-39 
+9, 000F-39 
+ O.OOOF-39 
*0.0906-39 
+O.OOOF-39 
+0.0006-39 
+0.0006-39 
+0. OOOE-39 
+0. OOOE-39 
+O.OOOF-39 
+0.000F-39 


XSI  W 

+1.3816+00 
+1.359E+00 
+1.2866+00 
+1 . 1576+ffO 
+9.5616-01 
+6.3846-01' 
+6.0016-01 
+5.7066-01 
+5.485E-01 
+5.3316-01 
+5.2336-01 
+5.1876-01 
+5.1886-01 
+5.  191 6-01 
+5.242E-01 
+5.3386-01 
+5.4756-01 
+5.7716-01 
+5.026E-01 
+6.3676-01 
+6.712E-01 
♦7.0236-01 
+0.0006-39 
+0.  OO'OE-59 
+0.0006-39 
+0.0006-39 
+O.OOOF-39 
♦0.0006-39 
+n. OOOE-39 
+0. 0006-39 
+0. OOOE-39 
+0.0006-39 
+0. OOOE-39 
+0.0006-39 
+0.000F-39 
+0.0006-39 
+0.5096-39 
♦0.0006-39 
+0. OOOE-39 
+0.0006-39 
+0.0006-39 


AT  ALPHA  = +3. 0000E+01  • LEEWARD*  RW  = +1.5081F+01  DELS  = + 1. .38156  + 00  3SHDD<  = -1.5338F+D0 

THETAW  LESS  THAN  LIMIT 

SEC  XO  L XB  L YB  L SB  L THETBL  PE/PS  L DP/DS  . 31  L OT  L RE  L OR  L XSI  L 


3 +2. 1306+00 
3 +1. 738E+00 
3 +1.345E+00 
' 3 +9.827E-61 
3 +5.601E-01 

"3  +r.ST5E-01 
1 +1.362E-01 
1 +i;<j81E-0f 
1 +8. 302E-02 
■ 1 +6. 1 TSE— 02 
_I_+4_1259E“02 
1 +2.73  2E-02 
1 + 1 * 5 39E-D2 
*1+6.  848E-03 
1 +1. 713E-03 


<2 

Ol 

A 


*" + 07"0o  06— 3~9~ 
+ 1. 713E-03 
“+67T48E-03 
1 +1.539E-02 

~r+r.T3W-02" 

1 +2.732E-02 
T~+4. 25  9E-02 
1 +6.118E-02 
1 +8. 302E-02 
1 +1.081E-01 
1 + 1.362E-0 1 " 
3 +1.675E-01 


3 +9. 527E-D1 
3 +ir3'45E  + 00 
3 +1.73RE+00 
3~+2TT30E+00 
3 +2.  523E+00 
~3~+2*r?rS6+CK) 
3 +3. 308E+00 

3 +"3.7016+00 

4 +4. 093E+00 
"4* +4:  1*02E+00 

4 +4. 112E+00 
”4'  +'4.  I23E+00 
4 +4. 135E+00 
“V  +4.  r4"8E+00 
4 +4. 162E+00 
' 4“  +4.*  I77E+00 
4 +4.192E+0 0 
*4  +4.208E+00 
8 +4.223F+00 
8 +4.2*446+00 
8 +4. 265E+00 
8 +4.284E+00 
8 +4. 303F+00 
8 +"4".  32  OF  +00 
8 + 4.335F+00 
' 8 +4. 348E+00 
0 +4. 358E+00 


.000F-39 
OOOE-39 
.000E-39 
OOOE-39 
,0006-39^ 
■ OOOE-39 
,7 13E-03 
848E-03 
.5396-02 
,7326-02 
. 2596-02 
.118E-02 
,3026-02 
0816-01 
3626-01 
’675  E—0 1 
0176-01 
387E-0I 
7866-01 
0756-01 
2116-01 
6616-01 
J36E-01 
6*33  E-  01 
J.53E-01 
692E-01 
250Er01 

'3WE+ff{r 
965E+00 
665E+00 
345E+00 
025F+00 
7056+00 
3856+00 
065E+00 
7456+00 
4256+00 
439E+00 
454F+00 
469E+00 
484E+00 
5O0E+OO 
516E+00 
531E+00 
546E+00 
5616+00 
575E+00 
592F+00 
608E+00 
621F+00 
632E+00 
641  F+00 
647F+00 
650E+00 
650F+00 


+0. OOOE-39 
+7.852E-01 
+1. 570E+00 
+2. 356E+00 
+3. 141E+00 
+3.926E+00 
+3. 991E+00 
+4. 057E+00 
+4. 122E+00 
+4.186E+00 
+4.250E+00 
+4.312E+00 
+4.  374E+00 
+4. 434E+00 
+4. 493E+00 
+4.551E+00 
+4. 607E+00 
+4. 661E+00 
+ 4^7 13E  + 00 
+4.747E+00 
+4. 762E+30 
+4. 810E+00 
+4. 855E+00 
+ 4.  897E+00 
+4. 937E+00 
+4. 974E+00 
+ 5. 009E  + 00 
+5.4016+00 
+5 . 794E+00 
+6. 136E+00 
+6. 579E+00 
+6.972E+00 
+7. 364E+00 
+7. 757E+00 
+ 8. 149E+00 
+ 8. 542E+00 
+ 8. 934E+00 
+8. 942E+00 
+ 8. 947E  + 00 
+8.9516+00 
+8. 9546+00 
+ 8. 955E+00 
+ 8.  954E+00 
+8. 951E+30 
+8. 947F+00 
+8.9426+00 
+8. 934E+00 
+ 8.923E+00 
+B.909E+00 
+8. 893E+00 
+8. 3756+00 
+8. 856E+D0 
+8. R36F+00 
+8. 815E+00 
+8.7946+00 


OOOE-39 
8525-01 
, 570E  + 00 
3 5 > 5 + 00 
141E+00 
926E+00 
99IE+00 
057E+00 
1226+00 
1885+00 
253E+00 
319E+00 
384E+O0 
45DE+00 
515H+00 
530E+00 
5465+00 
711E+00 
777E+0D 
8225+00 
842E+00 
908E+00 
973E+00 
039E+00 
104E+00 
170E+00 
2356+00 
020E+00 
805E+OO 
591E+00 
375E+00 
1616+00 
9456+00 
0736+01 
1525+01 
2305+01 
3095+01 
310E+01 
312E+01 
3135+01 
315E+01 
3175+01 
3136+01 
32DE+01 
321E+01 
3235+01 
324E+01 
3265+01 
329E+01 
3315+01 
3336+01 
335E+01 
3375  + sJl 
3395+01 
3*15+01 


00  +1, 
00  +9, 
00  +9. 
00  +9, 
00  +9, 
00  +8. 
00  +7. 
00  +7l 
00  +7, 
00  +7. 
00  +7, 
00  +7, 
00  +6. 
00  +6« 
00  +6. 
00  +6. 
00  +6. 
00  +6. 
00  +5. 
94  +5. 
00  +5. 
00  +5. 
00  +4* 
00  +3. 
00  +3. 
00  +3, 
DO  +2. 
00  +2. 
00  +2. 
00  +2. 
00  +2. 
00  +2. 
00  +2. 
00  +2. 
00  +?. 
00  +2. 
00  +2, 
DO  +1. 
00  +1 , 
DO  +8. 


+ 45. 

+ 42. 

+ 39. 

+ 35. 

+ 33. 

+ 30. 

+ 30. 

+ 30. 

+ 30. 

+30, 

+ 30. 

+ 30. 

*30. 

+ 30. 

+ 30. 

+ 30. 

+24. 

+ 18. 

+ 12. 

+6.00  +6. 
+ 0.00  +4, 
-6.00  *3. 
DO  +2, 
00  +1, 
00  +9 
00  +6. 
00  +3. 
00  + 3, 
DO  +3, 
00  +3. 
DO  +3 
00  +3. 
DO  +3. 
09  +3. 


-12. 

-18. 

-24. 

-30. 

-38. 

-46. 

-54. 

-62, 

-70, 

-78. 

-PA. 

-04. 


OOOF+OO  +4. 
985E-01  -3. 
909 E— 01  -i. 
673 E- 01  -3. 
114E-Q1  -7. 
003E-01  -1. 
8 77 E— 01  -1. 
745E-01  -l* 
607E-01  -1. 
462E-01  -1“. 
310E-01 
152E-01  -1. 
987F-01  -1. 
814E-01  -1. 
634E-01  -l. 
447E-01  -2. 
251E-01  -2. 
0486-01 
836E-01  -2. 
685E-01"-2 
539E-01  -5 
018E-31“^T. 
497E-01  -5 
982E-0I  -5. 
515E-01  -4. 
102E-01  -4. 
7346-31  -3. 

5006-0  i“-rr 

349  E— 01  -1. 
2436-01  -7. 
183E-01  -4, 
142E-01  -2. 
119E-01  -1. 
111E-01  -2, 
113E-D1  *5. 
123E-01  +1. 
103E-01  -1. 
604E-D1  -1. 
2135-01  -1. 
957E-02  -1. 
967F-0Z  -9 
6616-02  -7 
284E-D2  -5. 
246E-02  -3. 
514E-0?  -2 
941E-03  -1. 
403E-03  -1 
598E-03  + D. 
593F-03  +D. 
598E-03  + 3 
598E-03  + D. 
593F-03 
599E-03  H. 
593E-03  *0. 
5 93 F- 03  + D. 


8095-36  +1.717E-01  +D.DD9F-39  +0.0DDE-39  +1.520E+01  +1.3816+00 
096: -D1  + U714E-01  +2.1115-31  +1.148E-D3  +1.2515+01  +1.361E+00 
202E  + 3D  +1. 73  IE— 01  +3.181E-01  +4.5666-D3  +1.0166+01  +1.299E+00 
2515+30  +2. 4125-01  + 6.*320E-0l  +1.797E-D2  +4;003E+D0  +1.1956+00 
070E+D3  +2.591E— 01  +B.5B4F-01  +3.823E-02  +0. OOOE-39  +1.049E+00 
3215+31  + 2 » S77E-01  +1.9326+30  +5.703E-02  +0.DD0E-39  +8.565E-01 
3355+31  +2.5386-01  +1.065E+D0  +6.958E-02  +0. OOOE-39  +8.289^-01 
4505  + 31  +2. 53  5E-01  +1.077E+00  +7.2356-02  +0.0005-39  +8.068E-01 
5185+31  +2. 579E-01  +1.087F+00  +7.502E-02  +0. OOOE-39  +7.898E-01 
5185  + 31  +2*.  571E-0I  +1.0O7E+30  +7.769E-02  +O.0OQE-39  +7.778E-01 
6505+31  +2.553E-01  +1.106F+D0  +8.035E-02  +0. OOOE-39  +7.706E-01 
7345+31  +2.645E-01  +1.113E+00  +8.299E-02  +0. OOOE-39  +7.582E-01 
8105+D1  +2.523E-01  +1.I20E+00  +B. 5596-02  +0.000E-39  +7.706E-01 
8395+31  +2.609E-01  +1.125E+00  +8.314E-02  +0. OOOE-39  +7.777E-01 
9705  + 31  +2. > 3 5E-01  +1.128E  + 30  +9. 0626-32  +0. OOOE-39  +7.396E-01 
0535  + D1  +2.5535-01  +1".  130E+00'+9. 3036-02  +0. OOOE-39  +8.D65E=or 
139E+31  +2.525E-01  +1.130E+00  +9.5346-02  +0. OOOE-39  +8.285E-01 
2275  + 31  +2 . 49 IE-01  +1.  1295+30  +9. 7526-02  * +0. OOOE-39  + 8.5596-01* 
31 75  +3  L +2.451E-01  +1.1256+00  +9.956E-02  +0. OOOE-39  +8.889E-01 
3315+31  +2“.  42*2E-bT  + 1. 1 21 F+D  O'  *+17  (TOW  - CF1T+  O'.  0 tTOE -3  9 +97r51 6=01 
5325+01  +2.523E-01  +1.117E+D0  +1.016E-01  +0. OOOE-39  +9.279E-01 
6135  + 31*  +^74T?F-Or~+lTO97F+30  +i;031E-0r+5.*00OE=39*+9.*7341~in““ 
5325+31  +2. 2335—01  +1.065E+30  +1.034E-01  +0. OOOE-39  +1.026E+00 
4905+01  *+2TIT3f10 1 '+1V02  2 6 +0*0~+ 1 70*2?  +0um«3E-3  9 +i; 

6535+31  +L.972E-01  +9.723E-01  +1.005E-01  +0. OOOE-39  +1.1546+00 
12 15  + 3 1 +U31FE-01  +9V198F-01  +9.780E-02  ♦7Sr{T0*5E-39  +i;232E+00 
6785+31  +1.556E-01  +8. 6546-01  +9.460E-02  +0. OOOE-39  +1.320E+00 
65  7 r+  D*m7T57 E - OT*  + ff.  057  E -GY  + 1 .“0  5 3 6=0 1 * + O'.  0'00E-39  + 1 ; 8 2 2 E+  0 0 
094E+33  +1.1545-01  +7.618E-01  +1.157E-01  +0.030E-39  +2. 2486+00 
2455-31  +*1.3515-01  +7.288E-01  +1 . 26  6E-01  *+0.  OOOE-39  +2.603E  + 00* 
65  55-D 1 +9.9315-02  +7.D36E-01  +1.379E-01  +O.ODOE-39  +2.8896+00 
7575-31  +9. 41 3E-02  +6.843E-DI  +1.495E-01  +D. OOOE-39  +3.U0F  + 00 
3295-31  +9.332E-02  +6.694E-D1  +1.616E-01  +0.0006-39  +3.267F+00 
4385-32  +3.550E-0?  +6.579E-D1  +1.741E-01  +D. OOOE-39  +3.359E+00 
7725-32  +3 . 373E-D2  +6.490F-01  +1.869E-01  +0. OOOE-39  +3. 3856+00 
1945-31  *+371366-02  +6.421F-DI  +2.0006-01  +O.OOOF-39  +3.342E+00 
293E-31  +8.3S7E-02  +6.311E-01  +2.119F-D1  +0.DD05-39  +3.228E+00 
9725+32  +1. D73E-01  +5.434E-D1  +1.866F-01  +0.0306-^9  +3. 1726+00 
5735+D2  +8. 7996-02  +4.615E-01  +1.617F-01  +0.000E-39  +3.138E+00 
230E+32  +7.3526-02  +3.833E-01  +1.37DE-01  +0. OOOE-39  +3.125F+00 
539=+'31  +5.S29E-02  +3.1476-01  +I.146E-01  +0.0005-39  +3.1356  + 130 
13 35+31" +4- • 3S3E-02  +2.5166-01  +9. 3376-02  *+0. 0D0E-39  +3.166E+00 
3595+31  +3.379E-02  +1.991F-01  +7. 5236-02  +0. OOOE-39  +3.2196+00 
83S5+DL  +2.5545-02  +1.537E-D1  +5.908F-02  +0.0D0F-39  +0.00DE-39 
7765+31  +L. 9196-02  +1.169E-01  +4.569E-92  +O.OOOF-39  +0. 0006-39 
9345+D1  +1 . 417E-02  +8. 6916-32  +3.457F-D2  +0. OOOE-39  +0. OOOE-39 
32  IE  +3 1 +L.D395-02  +6.351E-02  +2.567E-D2  +0.D00E-3®  +0. 0006-39 
DD05-33  +2.  227E-03  +4.  l«8F-02  +1.727F-02  +0.0905-30  +0. OOOE-39 
DD05-39  +2.2235-03  +4.187E-02  +1.729F-02  +0.00QP-39  +0. OOOE-39 
ODOE-39  +2.2195-03  +4.1856-02  +1.732F-02  +D. "005-39  +O.OOOF-39 
0DO5-39  +2.215E-03  +4. 184F-D2  +1.735E-0?  +0.030F-3O  +O.OOOF-39 
0D05-39  +2.2105-03  +4.1B3E-02  +1.733E-D?  +0.000F-3O  +0. OOOE-39 
0305-39  +2.  2356-03  +4.  1826-02  +1.74TE-D2  +0.0D0F-3O  +O.0"0F-39 
0D05-33  +2.2005-03  +4.1306-02  +1.743F-D2  +D.00PF-39  +0.0006-39 
0305-33  +2.1945-03  +4.179F-D2  +1. 7466-02  +0.OQ0=-39  +0.000F-39 


'9&fr 


I ST 

X ST 

Y ST 

S ST 

rvros  ST 

TH3T  ST 

SECT  AL  nHA 

23 

+4. 10845 E+OQ 

+7.446426+09 

+8.532543+00 

-6. 666676+00 

+5. 000003+01 

4 +40.00 

IW  SN 

XOW  SN 

YOW  SN 

XBW  SN 

YBW  SN 

SBW  SN 

TH3T<  SN  SECT 

AL3HA 

9 

+4. 192l7r+00 

+7.49672E+Q0 

+3. 5 9015E-02 

+9.853296-02 

+1.075023-01 

+4.89372F+01 

4 +49. JO 

IL  SN 

XOL  SN 

YOL  SN 

XBL  SN 

YBL  SN 

SSL  SN 

THSTL  SN  SECT 

AL°HA 

24 

+0.000006-39 

+0.000006-39 

+1.55428E+00 

+8.36277E+00 

+9.555333+00 

+t. 393726+01 

1 +49.00 

A 


AT  ALPHA  = +4.0000F+01"  WINDWARD,  RW  = +1.82843-01  DELS  = +8. 94056-03  3SHDS<  = -3.7277E-91 

S INITHET AW)  NEG.  FOR  XB  = +2.7315E-02  RW  = +1,82846-01  DELS  = +3.94063-03  35H3S<  = -8.7277r-0I 

SEC  XO  W X6  W YB  W SB  W THETBW  PE/PS  W DP/DS  W 3L  W OT  W RE  W OR  W XSI  W 


'•J 

M 


_4__+4,  108E+00  +0,0006-39  +0< 
4 +4, 1 1 2E+00  +9.135E-05  +5, 
4 +4, 123E+00  + 1 , 460E-03  +2. 


2T+-4.  1 3 56  +tfO  + 4 ; 4'56T-  03  T5* 
4 +4.148E+00  +9, 046E-03  +5. 
4 +4, ~16'26+ JO '+1,518^02  +6 

4 +4, 177E+00  +2.279E-02  +7, 

4 +‘4.r92S+0O  +3  • 1803—02  +9, 
4 +4.192E+00  +3.690E-02  +9, 
4'  +4.  20 8F+  CO  ~ +T i 2 1 0 6-  0 2~+ 1 , 
8 +4. 223E+00  +5.358E-02  +1, 
8 +4. 24TE+00"  +T.051E-02  +1 
8 +4.265F+00  +8.8995-02  +1, 
8 +572S4E+00  +1.087E-01  +1 
8 +4. 303E+00  +1.291E-01  +1 
B”+4732DE+00  +tr500E-01  +1, 
8 +4.335F+00  +1.709E-01  +1 
”8”  +4. 348E+00  +1.913E-01  +1 
8 +4. 358E+00  +2. 1106-01  +1, 

8 ~+4.3'66E+00  +2. 295E-01  +1 

9 +4.371E+00  +2,4646-01  +1 
«T+4.435£+*00  +5.2856-01  +1 

CANNOT  FIND  THETA  FOR  RW  OR  I 


0006-39 
235 E— 03 
08 8 E— 02 
6296-02 
130E-02 
576E-02 
949E-02 
235E-02 
853E-02 
042E-01 
149E-01 
272E-01 
3706-01 
442E-01 
4856-01 
500E-01 
485E-01 
442E-01 
3706-01 
2726-01 
1 149E-01 
2186-01 
l,  SKIP 


+0, 030E-39 
+5. 136E-03 
+2.094E-0Z 
+ 3.‘665E-02 
+5.236E-02 
+6.837E-02 
+ 8.  378E-02 
+9.9436-02 
+1. 075E-01 
+1. 152E-01 
+1. 309E-01 
+1.51 8E— 01 
+1.7236-01 
+1. 937E-01 
+2. 147E-01 
+2.355E-01 
+2.566E-01 
+2. 7756-01 
+2.9856-01 
+3. 194E-01 
+3.4036-01 
+7. 085b— 01 
CASE 


+90. 00 
+88.00 
+82. 00 
+76.00 
+70.00 
+ 64.00 
+58.00 
+52.00 
+48. 94 
+46.00 
+40.00 
+ 32.00 
+24.00 
+ 16.00 
+ 8.00 
+ 0.00 
-8.00 
-16.00 
-24.00 
-32.00 
-40.00 
-40.00 


+1 .0006+00 
+9.988E-01 
+9.806E-01 
+9;4f5E-0V 
+8.830E— 01 
+8.073E— 01 
+7.1 92E-01 
+6.210E-3 1 
+5.685 E-01 
+ 5. 192'E-01 
+ 4. 153  E-01 
+2.834E-01 
+2 .0146-01 
+1.400 E-01 
+9.488F-02 
+S.244F-02 
+3.9506-02 
+2.421E-02 
+1.427F-02 
+8.075 E-03 
+4. 3 76E-03 
+4. 378E-03 


+ 4. 0083-05  +1 . 
-3.2535+31  +1. 
-1 . 2396+02  +1. 
-'2.196:+JS"  + L'. 
-3.007E+02  +1. 
-3763 65+ 32  TT. 
-4.2045+32  +1. 
-4. 53  9E + 3 2 +1. 
-4.6333+02  +9. 
-4V&rS=+32“+3. 
-4.6363+32  +7. 
-4'.  2045  + 32  +5. 
-2.3723*32  +4. 
-1.7573+32  +'3. 
-1.239E+02  +2. 
-9.  1523+31  + L . 
-6.2565+01  +1. 
-4.1423+31  +5. 
-2.6393+31  +4. 
-1.6153+01  +2. 
-0. 4763  + 30  H, 
+0.0003-39  +9. 


610E+00 
5073+00 
573E+00 
TrOE+O'O 
310E+00 
2”3TE  +0  0 
1543+00 
054E+00 
939E-01 
3156-01 
9226-01 
'97IE-01 
477E-01 
3006-01 
359E-01 
5236-01 
072E-01 
783E-02 
0946-02 
3546-02 
2926-02 
754E-03 


+0. 00 OF- 39 
+5.716F-01 
+1.6226+00 
+1. 8056+00 
+2.135E+00 
+2.345E+30 
+2. 444E+00 
+2. 439F+00 
+2.399E+09 
+2.339F+0O 
+2.151C+00 
+1.737F+00 
+1.455c+0O 
+1. 1676+00 
+9.044F-01 
+6.8UE-01 
+4. 955F-0 l 
+3.502r-01 
+2. 393F-0 1 
+l.*79=-9l 
+ 1.004F--»1 
+8.674F-02 


+0. OOOE-39  +9.8373-02  +8.9416-03 
+9.2Q3E-06  +8,5073-02  +B.953E-03 
+1.467F-04  +5.3716-02  +9.144E-03 
+3.687E-04  +0.  0006-39  +9.5'6FE=UT 
+7.203E-04  +0. OOOE-39  +1.022E-02 
+i . 146E-03  +0.0006-39  +i.rr3E:=7nr 
+1 . 603E-03  +0. OOOE-39  +1.229E-02 
+2.0456-03  +0.0003-39  +i;3736-C2 
+2.2496-03  +0. OOOE-39  +1.4576-02 
+2.422F-03  +0^  OOOE-39  +175456-07' 
+2.585F-03  +0. OOOE-39  +1.748E-02 
+2.781E-03  +0.0006-39  +2.06BE-CT2 
+2. 744F-03  +0. OOOE-39  +2.4506-02 
+2.575C-03  +0. OOOE-39  +2.897F-02 
+2.31^-03  +0. OOOE-39  +3.411E-02 
+1.99RF-03  +0. OOOF-39  +3.993E-02 
+1.4 4 3 F- 03  +0. OOOF-39  +4.642E-02 
+ 1.304r-03  +0.0006-39  +5.353E‘-02 
+9.926F-04  +0.0006-39  +0.0006-39 
+7.252r-9fi-  +3. 0006—39  +0.0006-39 
+5 . 477F-Q4  +0. OOOE-39  +0.0006-39 
+1.0976-03  +0. 000F-30  +0. OOOE-39 


AT  ALPHA  =»  +4. 00006+01  > LFEWARO,  RW  = 4-0. 00006-39  DFLS  = +8.9405F-03  BSHOK  * +7.0000F-39 

SFC  XO  L XB  L YB  L SB  L THFTRL  PE/PS  L f)»/DS  - 3L  L OT  L 


o 


4 +4.1086+00 
4 +4. 107E+00 
“ 4 +4. 093F+00 
3 +3.7  Q1E+0Q 

3 -F3.308E+00 

3 +2.916E+00 

3 +'2.  523E+00 

3 +2. 130E+00 

3*  + 1. 738E+00 

3 +1.3456+00 

3~49.527E-01 

3 +5.6016-01 

3T1.675E-01 

1 *+ 1. 3626-01 
"+n<J81E-01 
+8.3026-02 


TT5mBE-02 
1 +4.259E-02 
”r^2;732E-02 
1 +1.539F-02 
”1  +6.848F-03 
1 +1.713E-03 
1'  +0.  007)6-39 
1 +0.0006-39 

nrrrrrr3E=03 

1 +6.8486-03 
1 + 1. 53 9 E— 02 
1 +2.7326-02 
-‘T“4V2^'9E- 02 
1 +6.118E-02 
~l~g.”30  2E-02 
1 + 1. 0816-01 
‘ 1~+ 1.  362E— 01 
3 + 1. 675E-01 
“ 3 “+ 51 6016-01 
3 +9. 5276-01 
~3"+r73'4’56+00 
_3  +U738E+00 
3 +2.1306+00 
3 +2. 5236+00 
“3~+2T9 166+00 
3 +3.3086+00 

3 +3.7016+00 

4 +4. 093E+00 
‘T"+4;  1026+00 

4 +4.1086+00 
4 +4.1126+00 
4 +4.1236+00 
4 +4. 135E+00 
4 +4. 148F+00 
4 +4. 162E+00 
4 +4. 177F+00 
4 +4.1926+00 
4 +4.2086+00 
'8"+4. 2236+00 
8 +4.2446+00 


+0.0006-39 
+3.654E-04 
+2.2796-03 
+1 . 386F-01 
+2.750E-01 
+4.1 13E-01 
+5.4776-01 
+6.840F-01 
+8.204E-01 
+9.567E-01 
+1.093E+00 
+1.2296+00 
+1 . 366E+00 
+1.3796+00 
+1.395E+00 
+1.4156+00 
+ 1 .438E4-00 
+1.4646+00 
+1 . 493E+00 
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+2. 240F-03 
+2.5? 4P-03 
+2. 7745-03 
+2.873C-D3 
+?.7*3F-03 
+2.51 7E-03 
+2.223T-03 
+1  .8B1E-03 
+1.534F-03 
+1.199E-03 
+2.7^2F-03 
+4.2S5F-33 


+2. 018E-01 
+ 1. 39BE-0f 
+ 2.6B8F-02_ 
+ 0.0006-39' 
+0. OOOE-39 
+0.000E-39 
+O.OOOE-39 
+0.000F-39 
+D.000E-39 
+0.0005-39 
+D.090E-39 
+0.000F-39 
+0, 00nE-39 
+0. OOOF-39 
+O.OOOF-39 
+0.090E-39 
+0. 090E-39 
+0.000E-39 
+0.090B-39 


+1. 334E-02 
+ lV970F-02_‘ 
+1. 978E-02 

+2. 4116-02 
+2.735E-32* 
+3. 2746-02 
+3.5 125-02 
+3.93DE-02 
+4.6856-02 
+5.5246-02 
+6.403E-02 
+7.277E-02 
+8. 094E-02 
+8.9006-02 
+9. 3556-02 
+O.OOOE-39 
+O.OOOE-39 
+0. 0006-39 


473 < 


AT  ALPHA  = +6.  0000E+01*  LEEWARD*  RW  = +1.6970E+01  DELS  = +1.8342E-02  3SHO:<  = -2.73O6F+00 

SIN(THETAW)  NEC.  FOR  X8  = +4.0572E+00  RW  = +1.69706+01  DELS  * +1.33425-32  JSHOiX  = -2.7396F+00 


SEC  XO  t 

4 +4. 148E+00  +0 
4 +4.  135F+00  +8 
4 +4. 1236+00  +3 
4“+2*.  112F+00  +7 
4 +4. 102E+00  +1 
4"+4.093E+00  +2 
_3  +3.701E+00  +4 
3 +313088+00  +8 
3 +2.916E+00  +1 
3"+2.'523E+0O  +1 
3 +2.130E+00  +1 
3_TT.''7'3'gE+'00  +2 

3 +1.345E+00  +2 

3 +9.527E-01  +3. 
3 +5.601E-01  +3 
— 3“+r7575'E-0T_+3: 
1 +1.362E-01  +3 
TO  .7)8*16-01  +4 
1 +8.302E-02  +4 
— r~+  8 rJtrzF-u2~+4 
1 +6.118E-02  +4 
— T~TA\~75^E=0  2*"+4 
1 +2. 732E-02  +4 
— m 75  3*9  E-"0"2~+4" 
1 +6.848E-03  +4 

— r tit?  nr- 03  +4 

1 +0. 000E-39  +4 
1 +1771 3E~(5r*+4* 
1 +6.848E-03  +4 
~r+n539E-02  +4 
I +2. 732E-02  +4 

r~+~4T2  59E-'02— +4 

_l_+6. 1186-02  +4 

1 +1. 081E-01  +4 
T“  -FI  .36  2F-0  l +4 
3 +1.6756-01  +5 
“ *3“+5. 6016-01  +5 
3 + 9.52  76-01  +6, 

3"'+  r.T45F-f00  ”+T. 

3 +1.738E+00  +8. 
— 3 +Z".r30E+00  +8. 
3 +2. 523F+00  +9, 
3~  + 2. 916E+00  +1 

3 +3.308F+00  +1 
"3  **+3.70 16+00  +1 

4 +4.093E+00  +1 
4 +4. 102E+00  +1, 
4 +4.112E+00  +1. 
4 +4.123E+00  +1, 
4 +4.  135E+00  +1, 
4 +4.148E+00  + 1, 
4 +4. 1626+30  +1, 
4 +4.177E+00  +1 
4 +4. 192F+00  +1 


XB  L 

.0006-39  +0. 
217E-04  +1. 
278  E— 03  +3, 
342E-03  +4. 
2976-02  +6. 
.0106-02  +7. 
.1276-01  + 7. 
,0536-01  +1. 
. 198E+00  +2. 
.5906+00  +2. 
, 983E+00  +3. 
I 3 76E+C0  +4, 
•768E+00  +4. 
,16iE+00  +5. 
553E+00  +6. 
;946E+00  +6, 
,9806+00  +6, 
.017F+00  +6. 
■ 057E+00  +7. 
r<T8'6  E-FOO  +7. 
,1006+00  +7. 
T145E+00  +7. 
192E+00  +7« 
,7426+00'  +7. 
,2946+00  +7. 
,3486+00  +7. 
,4046+00  +7, 
waew  +7. 

,5206+00  +7. 
581E+00  +7. 
,6426+00  +7. 
,7056+00  +7. 
, 769F+00  +7. 
.333E+00  +7, 
, 898  E+00  +7. 
i 963E  + 00  +7. 
,0296+00  +7. 
, 814E+00  +7. 
,5996+00  +7. 
384E+00  +7. 
1696+00  +7. 
955E+00  +7. 
740E+00  +7. 
,0526+01  +7. 
131E+01  +7. 
,2106+01  +7, 
,2886+01  +7. 
290E+01  +7. 
, 291F+01  +7. 
293E+01  +7. 
294E+01  +7. 
296F+01  +7, 
,2976+01  +7. 
, 298F+01  +7. 
,2996+01  +7. 


Y8  L 

000E-39  +0, 
568E-02  +L , 
1196-02  +3, 
635E-02  +4, 
101E-02  +6, 
500E-02  +7, 
550E-01  +8. 
435E+00  +1. 
115E+00  +2. 
795E+00  +3. 
4756+00  +4. 
1556+00  +4. 
835E+00  +5. 
515E+00  +6. 
1956+00  +7. 
8756+00  +7. 
931E+00  +7, 
985E+00  +8. 
037E+00  +8. 
07  IE +00  +8. 
0866+00  +8. 
134E+00  +8. 
1796+00  +8. 
2216+00  +8. 
261E+00  +8. 
2986+00  +8, 
3336+00  +8. 
3'64E+00  +8. 
392E+00  +8, 
4L7E+00  +0, 
4396+00  +8. 
457E+00  +8. 
473F+00  +8. 
485E+00  +9. 
4936+00  +9. 
498E+00  +9, 
500E+00  +9. 
500E+00  +1. 
5006+00  +1. 
500E+00  +1. 
5006+00  +t. 
500E+00  +1. 
500E+00  +1. 
5006+00  +1, 
5006+30  +1. 
500E+00  + 1. 
500E+00  +1. 
499E+00  +1. 
497E+00  +1. 
493E+00  +1. 
4876+00  *1. 
480E+00  +1, 
471E+00  +1. 
461 E+00  +1, 
450E+00  +1. 


SB  L THETBL  PE/PS  L 


0006-39 
571E-02 
142C-02 
7126-02 
2836-02 
854E-02 
637E-0L 
549E+00 
434E+00 
2196+00 
005E+00 
7906+00 
575E+0D 
360E+00 
1456+00 
931E+00 
9965+00 
0616+00 
L27E+00 
172E+00 
1925+00 
2585+00 
323E+00 
389E+00 
454E+00 
520E+00 
5356+00 
"S506+OTT 
7155+00 
7 3 16+00 
847E+00 
912E+00 
978E+00 
043E+00 
1096+09 
174E+03 
240E+OO 
002E+01 
0816+01 
160E+01 
2336+01 
3175+01 
395E+01 
4745+01 
5526+01 
631E+01 
7095+01 
711E+01 
712E+01 
7145+01 
7155+01 
7175+01 
7195+01 
7205+01 
7225+01 


+90.00 
+84.00 
+ 78.  00 
+72.00 
+ 66.00 
+60.03 
+60. 00 
+60.00 
+60.00 
+60.00 
+60. 00 
+60.  DO 
+60.00 
+60.00 
+60.00 
+60. 00 
+57.00 
+54.00 
+51.00 
+48.94 
+48. 00 
+45.00 
+42.00 
+39.00 
+36.00 
+33.00 
+30.00 
+"27.00 
+24.00 
+ 21.00 
+18. 30 
+15.00 
+12.00 
+ 9.00 
+6.00 
+ 3.00 
+0.00 
+0.00 
+ 0.00 
+ 0.00 
+0.00 
+0.00 
+0.00 
+0.00 
+ 0.00 
+0.00 
+ 0.00 
-6.00 
-12.00 
-18.00 
-24.00 
-30.09 
-36.00 
-42.00 
-48. 00 


+1 .0006+30 
+9.891E-01 
+9.5635-01 
+9. O45E-01 
+8.346E-01 
+7. 500 E— 01 
+7.500F-01 
+7.500E-01 
+7.500E-01 
+7. 500E-01 
+ 7. 500E-01 
+7. 500E-01 
+7.500E-01 
+7 .5006-01 
+7.500E-01 
+7. 500E-01 
+7.034E-01 
+6. 545E-01 
+6.0406-01 
+5. 685E-0I'" 
+5 . 539E-01 
+5. 0 18F-DI 
+4.497E-01 
+3.982E-01 
+3.515E-31 
+3.102E-01 
+2. 734E-01 
+2.410E-01 ' 
+2.129E-01 
+ 1 . 856E-01 
+1.617E-01 
+1.408E-01 
+1.224E-01 
+1 .0556-01 
+9.054E-02 
+7.795E-02 
+6. 659E-02 
+6.657F-02 
+6 . 550E-02 
+6. 4476-02 
+6. 348E-02 
+6. Z05E-02 
+6.072E-02 
+5.944E-02 
+5.823E-02 
+5.745E-02 
+5.735F-02 
+4.07TF-02 
+2 . 849E-02 
+1.943E-02 
+1.295E-02 
+8.464E-93 
+5.384E-03 
+3.5036-93 
+3.593F-03 


1535-04  +1 
7255+31  +L 
903E+02  +1 
7495+02* +5 
4765+02 
05  1E  + S2  +3, 
0005-39  +7 
0005-39  +5 
,0005 
000=-39  +3 
,0005-39  +3 
0305-39  +3 
0005-39  +2 
0005-39  +2 
0005-39  +2 
OOOE-3‘9* +2 
1285+31  +3 
3385+01 ’ +3 
4905+31  +3 
56or+or_+3 
5325+01  +3 
6r35T3r"V3 
5325+01  +3 
490E+31 *+2 
6585+31  +2 
12fE01-+2 
6785+01  +2 


,9595+01  + 1 
,'63  37  + 01* +7 
.3315+01  +1 
, 1295+OV+l 
,9025+01  +1 
5385  <-01  +1 
,4395+01  +1 
,3185+01  +9 
,1555+01  +3 
,0005-39 
33+5-02  +5 
,0323-02  + 
7005-32  +5 
2325-01  +5 
,1585-01  +5 
1105-01  +4 
0565-01 
, 841E-32  +4 
,0)05-39 
9-245  + 01  +3 
7545+01 
4375+01  +5 
4285+31 
6325+01  +2 
1365+01  + 
,0305-39  +3 
,0305-39 


31  L 

.5736+00  +0, 
. 5SOE+90  +2, 
. 5066+00  +3. 
.5946+00  +1. 

• 40  IE +00  +1. 
.3375+00  +2. 
. 245E-01  +1. 
.180E-01  +1, 

455-01  +1, 
.5336-01  +1. 
. 293E-01  +9. 
. 013E-01  +9, 
.7915-01  +8. 
. 511E-01  +8. 

35-31  +8. 
.337E-0T“+8; 
.4546-01  +8, 
4545-01  4-8, 
4145-01  +8. 
. 375E-DT"  +B. 
.3555-01  +8. 
‘.T2?E=01~+B, 
.0855-01  +8. 

• 313E-01  +'8. 
. 577E-01  +7. 
. 4556-01“  + 7. 

2556-01  +6. 
•WE-'OT+F; 
. 903E-01  +5, 
727E-01  +5. 
. 552E-01  +5. 
. V12E-01  +4; 
• 272E-01  +4. 

rmr-oi  +3; 

.013E-01  +3. 
.0445-02  +3. 
.0116-02  +2. 

5-02  +2, 
. 5536-02  +2. 
.4235-02  +2. 
.2995-0?  +2. 
. 1975-02  +2. 
.0535-02  +2. 
.913E-02  +2. 
. 7905-02  +2. 
.5525-02  +2. 
.4095-02  +2. 
. 3 5 IE-02  +1. 
.5256-02  +1. 
. 01 3E-02  +1. 
.7935-0?  +8. 
333E-02  +4. 
1175-02  +4. 
. 531E-03  +3, 
.5316-03  +3. 


or  L 

■040S-39 
,3846-01 
, 524E-01 
, 775E+00 
,9926+00 
, 109E+00 
, 306F+3  0 
.T47E+00 
,0616+00 
, OO4E+0  0 
, 608E— 01 
, 270F-01 
,9936-01 
,7596-01 
553E-01 
.381E-01 
,6256-01 
767E-01 
.8106-31 
,7326-01 
7566-01 
.'607E-01 
355E-31 
034E-01 
652E-01 
246E-01 
, 824E-01 

, 984E-01 
5516-91 
. 141 E-D 1 
'73^01 
357E-01 
,9806-01 
6146-01 
?8  5F— 01 
957E-01 
91 85-31 
R45E-51 
777E-01 
713E-01 
641F-01 
574E-01 
511F-01 
452E-01 
407F-01 
332E-01 
9026-01 
494r-01 
1496-01 
656F-02 
407r-0? 
635E-02 
44  lc-‘v2 
441F-02 


RE  L 

+0. OOOE-39  +2, 
+1 • 198F-05  +t, 
+4. 6776-05  +64 
+5.931E-04  +3. 
+9. 981E-04  +4. 
+1 . 450E-03  +5, 
+1.595E-02  +0. 
+3  • 0446-02  +0, 
+4. 494E-02  +0. 
+5.9436-02  +0. 
+7.393E-02  +0, 
+8.  8436-0*2  +0. 
+1. 029E-01  +0. 
+ 1.174F-01  *+o; 
+1 . 319E-01  +0. 
+1 . 4646^01  +0. 
+1. 554E-01  +0. 
+1.623E-01“^0. 
+1.683E-01  +0. 
+i.7roE=roi~+o: 
+1.718E-01  +0. 
+1.'735E-Ori:0. 
+1 . 730E-01  +0, 
+r:705E^or+o^ 
+ 1 . 664E-01  +0. 
+ 1. 6 1*2  E^or  + a; 

+1 . 551E-01  +0, 
+1*.FS6E='Dl“+0. 
+1 • 416E-01  +0. 
+1. 3426-01  >0. 
+1.2656-01  +0. 
+1.1836-01  +0. 
+1.112E-01  +0. 
+1.0346-01  +0". 
+9. 557E-02  +0. 
+ 3. 338E-02*'  +0; 
+R.119E-02  +0, 
+8. 308F-02  +0, 
+9.4076-0?  +0. 
+9. 995E-02  +0. 
+1. 053E-01  +0. 
+1.110E-DI  ~+0. 
+1 . 16  IE-01  +0. 
+1.2116-01  +0. 
+1.259F-01  +4, 
+1 . 313E-01  +0. 
+1 . 374F-01  +0. 
+1 . 1 I7F-0I  +0. 
+8.9276-02  +0. 
+6.983F-0?  +0. 
+5. 3506-02  +0. 
+4.n?5F-02  +0. 
+2.958F-0?  +0. 
+?. 239F-0?  +0, 
+2.24ir-02  +0, 


QR  L 

OlflE-Ol 
7125-01 
02  86-02 
5716-0? 
353E-02 
3856-02 
OOOE-39 
0006-39 
0006-39 
OOOF-39 
OOOE-39 

0005- 39 
0D0E-39 
00"(56-39” 

0006- 39 
O0OF= 39 
OOOE-39 
OOOF-39 
OOOE-39 
'00UF-39 
0006-39 


XSI  L 

+1.834E-02 

+li92rE-CT2 
+2.2066-02 
+2VF9TE-0Z — 
♦3.4096-02 
♦ 4".  406E-02  ** 
+4.6456-01 
+8. 3346-0 1*"" 
+1.153E+00 
+1 . 426E+00 
+1.651 E+00 
+1*.  8296+00  * 
+1.957E+00 
+2".  032E+0'0”“ 
+2. 050E+00 
+'27  0046471  IT 
+1. 989E+00 
"+IT979ET00 — 
+1.975 E+00 


0006-39  +2.Q27E+00  ■ 

OOOE-39  +2.081E+00 

000E-39~42Trr4E+00 

OOOE-39  +2.1 52E+00 

0006-39  +2.1*946+00 * 

OOOE-39  +2.Z39E+00 
OOOE-39'  +2'.  Z88  E+00 
OOOE-39  +2. 340E+00 
000E-39'"+2T395F+OO 

0005- 39  +2.454E+00 
D00E-39  +2. 514FF00 
DOOE— 39  +2. 575E+00 
OOOE-39  +2.735E+00  “ 
OOOE-39  +2.729 6+00 

OOOE-39  +0T003E-39 

OOOE-39  +0. OOOE-39 
OOOF-39 '+"070  (JOE— 3^ 

0006- 39  +0. OOOE-39 

OOOE-39  +O.OOOF-3T9" 

OOOE-39  +0. OOOE-39 
0006-39  +O.OOOE-39" 
OOOE-39  +0. OOOE-39 
0006-39  +0.'0006-*3F 
O'lOE-39  +0.  OOOE-39 
OOOE-39  +0. OOOF-39 
OOOE-39  +0. OOOE-39 
0006-39  +0.0^06-39 
0006-39  +0. OOOE-39 
0006-39  +0. OOOE-39 
OOOE-39  +0. OOOE-39 


4SQ< 


4 +4. 20BE+00  +1.300F+01  +7.438E+00  +1.723E+01  -54.00  +3.598E-03  +3.0305-39  +3.53LE-73  + 3. 467=-*)  ? +*>.’4 3f*-n?  +0.090F-39  +O.OOOF-39 

8 +4. 223E+00  +1.301F+01  +7.425E+00  +L. 7255+01  -60.30  +3.598F-03  +3.3303-39  + 3.5M5-03  +3.459  = -^?  f?.?45=-7?  +3. 0305-39  +0.703E-39 

8 +4. 244F+00  +1.302E+01  + 7.406E+00  +1.7275+01  -68.00  +3. 5985-03  +3.3303-39  +3.533E-03  4-3. 4S9F-  v>  + ?. *>435-3?  + 7. 0005-39  4-0.000E-39 

ft  4-4. 265E+00  +1.303E+01  4-7.386E+00  *-1.729  = 4-01  -76.30  4-3.593E-03  +3.0303-39  *-3. 3335-03  + 3.4:>flF-7?  +2.291F-*)?  +7.700E-39  +0.0O0E-39 

8 +4. 284E+00  +1.303E4-01  +7.366E+30  4-1.7315+01  -84.00  +3.598E-03  43.0305-39  4-3.5305-03  +3.457=-**?  + 2.253F-1)?  +O.OOOE-39  +0.9OOE-39 
B +4.303E+Q0  +1 . 303F+01  +7.345E+00  +1.733E+01  -92.00  +3.598E-03  40.0305-39  43.3335-03  + 3.456F-**?  4?.?36E-3?  +3.330E-39  +0.300E-39 

I ST X_ST  Y ST  S ST  DTOS  ST  THET  ST  SECT  AL  DHA 

31 _ +4. 22335E+00  +7.50000E+00  +8.66354E+00  -6.66567E+00  +0.033305-39  3 +90.00 

IW  SN XOW  SN  YOW  SN  XBW  SN  YBW  SN  S8H  SN  THEM  SN  SECT  ALp44 

2.  Jt4.:31977E+00  +7. 46491E+00  +3.69316E-02  +9.85329E-02  +1.075325-31  +4.39372E+01  8 +97. ?7 

XL  SN XOL  SN  YOL  SN  KBL  SN  Y8L  SN  SBL  SN  T 4ETL  SN  SFCT  AL°HA 

8 +4. 13519E+00  +7. 47135E+00  +3.69D15E-02  +9.85328E-02  +1.07532E-DI  +4.3J372E+01  4 +97.00 


AT  ALPHA  = +9.0000E+01  WINDWARD,  RW  = +2.7S33E-01  DELS  = +1.8342E-02  3$H0:<  = -2.5619E-0? 

THETAW  LESS  THAN  LIMIT 

SEC  XO  M XB  W YB  W SB  W THETBW  PE/PS  W DP/DS  rf  3L  W OT  W BE  W OR  W XSI  W 


£-39  +2.018E- 
E-04  +1.1155- 
E-04  +O.OOOF- 
E-04  + O.OOOE- 
E-03  +O.OOOE- 
E-03"  +0.  OOOE- 
F-03  +O.ODOE- 
F-03  +0.000E- 
E-03  +0.000E- 
E-03  +0.000E- 
T-O 3 +0.000E- 
E-03  +O.OOOE- 
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+0. 3005-39  +2. 175E-03  +3.5436-02  +1.9916-02  +0.0006-39  +O.000E-39 


>idi8|7 


AT  ALPHA  * +1.20006+02,  LEFWARD,  RW  = +-2.  76336-01  DELS  » +1. 9 342F-02  3SH3C<  = -1.414BF+04 

SKIP  CASE,  YA  IMAGINARY  FOR  RW  = +2.76336-01  DELS  = +1.8342E-32  3 SHOCK  = -1.4lt:»E+09 


XO  L 


XB  L 


8_+4.Z98E+00  -O.OOOF-39 
“ 8 +4.284E+00  +8.217E-04 
_8_+^.265E+00  +4.456E-03 
8“+4.2'?4E+30  +1.092E-02 
8 +4.223E+00  +2.0106-02 
4 +4.208E+00  +2.865E-02 
4 +4.208E+00  +3.690E-02 
4 +47 192E+00  +3.853E-02 
4 +4.I77E+00  +4.9636-02 
4+471626+00  +6.1836-02 
4 +4. 148E+00  +7.500E-02 
4 "+4. 135E+00  +8.8996-02 
_4  +4. 123E+00  +1.0366-01 

4 +4-.  ri2E+00”+i.l88E-01 

4 +4. 102E+00  +1.3436-01 
“ 4~+'47'0 9 36"+ 0 0~  +1 . 5 006-0  T 
3 +3. 701E+00  +9.3526-01 
“3TT373W+0  0 ' + 1 . 7206+00 
3 +2.9166+00  +2. 5066+00 
3 +2.  52'3‘E+o  (T+57291 6+0  o 
3 +2. 130E+00  +4.0766+00 

3 +1.3456+00  +5.646E+00 
5“+97?2T6-or  +6.4326+00 
3 +5. 6016-01  +7.2176+00 
3 + 1T5T5I-01  +g."0TO2E+c5O 
1 + 1. 362E—Q 1 +B.067E+00 

1 +813026-02  +8*1986+00 
HP +6  711 86-0  2‘~+8 .2626+00 
1 +4.259E-02  +8.3256+00 
"1  +2.  7326-02  +8.3086  + 00' 
1 +1.5396-02  +8.4506+00 
1 +6. 84"8E-03  +8.5106+00 
1 +1.7136-03  +8.5696+00 
“TVOTO  006^39  +87627E+00' 


YB  L 

.0006- 
. 568E- 
.6296- 
. 619E- 
. 500E- 
. 817E- 
* 853E- 
. 004E- 
. 1 15E- 
. 214E- 
.2996- 
.3706- 
. 427E- 
.4676- 
.4926- 
. 500E- 
. 500E- 
. 500E- 
.5006- 
.5006- 
.5006- 
75006- 
.5006- 
. 5006- 
.5006- 
.5006- 
.4836- 
77526- 
. 346E- 
.2276- 
. 074E- 
.88  26- 
. 697E- 
. 1936- 
. 376E- 
.7476- 


SB  L THETBL  PE/PS  L OP/DS  L 


3L  L 


OT  L 


39  +0. 
02  H, 
02  +3. 
02  +5. 
•02  +7« 
02  +9. 
02  +1. 
01  +1, 
01  +1. 
01  +1. 
01  +1. 
01  +1, 
01  +1, 
01  +2, 
01  +2. 
01  +2, 
01  +1. 
01  >1. 
01  +2. 
oi  +3; 

01  +4. 
01  +4. 
01  +5. 
01  +6'. 

01  +7, 
01  +8. 
01  +8. 
err  +8. 
01  +8. 
01  +8. 
01  +8. 

02  +8. 
02  + 8. 
02  +8. 
02  +8, 
02  +8, 


OOOE-39 
571E-02 
665E-02 
760E-02 
854E-02 
4256-02 
075E-01 
1005-01 
2576-01 
414E-01 
5716-01 
728E-01 
B 856-01 
0426-01 
1996-01 
355E-01 
021E+00 
8066+00 
5915+00 
3766+00 
1626+00 
9476+00 
732E+0D 
5 1 76+ 00' 
302E+00 
0886+00 
1536+00 
2106+00" 
284E+00 
3436+00 
415E+00 
4806+00 
545E+00 
6115+00 
5776+00 
7425+00 


+90.00  +1.0006+00  +4. 0385-55 
+84.00  +9. 8446-01  -1.3335+32 
+76.00  +9. 183E-01  -2.959E+D2 
+68.00  +3.1336-31— 3. 9325+52 
+60.00  +6 .9336-01  -3.9I75+D2 
+54.00  +6.1386-01  -3.051=+02 
+48.94  +5.685E— 01  -1.6275+32 
+ 48.00  +5.539E-D1  -4.6526+02’ 
+42.00  +4.497E-01  -4.632E+32 
+35.00  +3.4786-01  -4.449=+02 
+30.00  +2. 706E-01  -3.0375+32 
+24.00  +2.097E-01  -2.4525+32 
+18.00  +1 . 5996-01  -1.9575+32 
+12.00  +1.210E-01  -1.5735+32 
+6.00  +8.9336-02  -1.2275+32 
'+0.00  +6.5486-02'  -9. 516E+31 
+0.00  +3.1066-02  -1.2305+33 
+0.00  +2.1 816—02"  -5. 3956 -3 1 
+ 0.00  + 2.JL83E-02  +3.0303-39 
+0.00  +1.896E-02  -2.1593-31 
+0.00  +1.6876-02  -1.6165-31 
ro.oo  TiT52rr-r2~-r.  2 so r-Ti 
+0.00  +1.401E-02  -1.014E-D1 
+0.00  + 1 . 2986-32  -8^3516-31? 
+0.00  +1.212E-02  -7.0153-32 
+0 .00  + £7 1"43 6- 02  -"5".  9T5  = - 3 2 
-3.00  +9.249E-03  -2.1335+33 

~-s:oo 

-9.00  +5.932E-03  -1.4333+33 

-12.00  +4.728e-03"-r72T6=nT 

-15.00  +3.761E-03  -9. 9575-31 
-18.00  +3.5936-03  + 3.0001-39' 
-21.00  +3.598E-03  +3.0305-39 
-24.00  +3. 598E-03  +3.0303-39 
-27.00  +3.598E-03  +0.0305-39 
-30.00  +3 . 598E-03’  +3.0303-33 


+3.139E+00  +0. 0006-39  +0, 
'+3.  3335+00  +1.11SE+00  +8. 
+2.3BlE_+00  +1.  764E+00  +4, 
+ 2.711E+30  + 2.*395E  + 0O'+9, 
+2.351E+00  +2.1S5E+00  +1, 
+Z.05SE+00  +2. 1 48E+00  +1. 
J-L.  9366+00  +2.0B8E+00  +2, 
+ 1.3345+0*6  +2.0746+00  +2, 
+I.S16E+00  +1.9356+00  +2, 
+ 1.3396+00  +1.72  7E+00  +2, 
H.D34E+00  +1. 5126  + 00  +2, 
+3.7336-0Y  +1.303E+00  +2, 
+7.307E-01  +1.1036+00  +2, 
+5.5476-61  +9. 2216-01  +2. 
+4.299E-01  +7.5476-01  +2, 
+3.  3036-01  _+6:n3E-01  +2, 
+1.114E-01  +2.784E-01  +5, 
+7.2D4E-02  +1.9516-01  +7, 
+3.34SS-02  +1.8176-01  +1 , 
+5.4225-02  +1.5636-0'!  +1. 
+4.6226-02  +1.382E-01  +1. 
+775736-0  r7Z466~-3 1 +1. 

+3.5965-02  +1. 139E-01  +1. 

'+ 3*r>?  5b  - d 2~+  r.  o 5 2Fnr~+  2; 

+ 2*  963E-02  +9.8026-02  +2. 
+"Zr7T8E-02  "+T.196E-02  +2. 
+2. 744E-02  +7.920E-02  +2, 
-CT2”+r 
+I.333E-D2  +5.749E-02  +1. 
-+r75yJE“02  +4.’  875E-02  +1. 
+L.232E-02  +4.124E-02  +1 . 
+ 37m6-03'  + 3/997F-02‘  +1. 
+3.8675-03  +3. 9816-02  +1, 
+ 3.35  2E-03  +3.' 9756-02  +1. 
+8.3566-03  +3.9696-02  +1 . 
+3.350E-D3  +3.963E-02  +1. 


0006-39  +7.0186-01 
2766-05*  +1.231E-01 
284E-04  +0. 000E-39 
5886-04  +0. 0006-39 
541E-03  +O.OOOE-3_9_ 
944E-03  +0. OOOE-39 
249E-03  +0.00DE-39_ 
30'6E-03*+0'.  9306-59" 
6136-03  +0.0006-39 
7746-03  +3. OOOE-39 
3276-03  +0.0006-39 
79'5F-?)3  +0.0006-39 
680E-03  +0. OOOE-39 
5 13 E -03  +0: 0006-39 
290E-03  +0. OOOE-39 
059E-03' 

5226-03  +0. 0006-39 
93 16-03 ‘40'.  0006-39' 
139E-02  +0. OOOE-39 
3 57e-T>2'  + 070006-39 
5466-02  +0,0006-39 
7 2r6-"t)'2~+070  OOF-39' 
8936-02  +0. OOOE-39 


XSI  L 

+1.834 E-02_ 

+1 . 870E-02 

+2.0306-02 

+273186-02 

+2.7326-02 

'+3.1216-02'  — 

+3.5006-02 

+3.5756-02""' 

+4.0B6E-02 

+4'.  6*466—02 

+5.241E-02 
+5".  8536-02 
+5.4616-02 

+r;  0406^02 — 

+7. 564E-02 


179E-02  +0. 
3l6F=02“+0; 
0296-02  +0. 

5246-02  +0. 
3146^92" +0. 
130E-02  +0. 

ro4E-02'  + 0". 
1126-02  +0. 
12l6^02'+0. 
129E-02  +0. 
r3BE-D2~+D. 


OOOE-39  +0.0006-^39 
'*9" +070036739  ~ 
OOOE-39  +0.000E— 39 


0006- 

0006- 

0006- 

0006- 

OOOE- 

O0OE- 

OOOE- 

OOOE- 


■39  +0. 
19“ +07 
■39  +0. 
•39"ytr. 
■39  +0. 
■39~+07 
■39  +0. 
•39~+CT. 


OOOE-39 
OOOF=39~ 
OOOE-39 
0036-39  " 
OOOE-39 
003'6-3‘9” 
0006-39 
nO  OE*- 39“ 


'SY~ 


X ST 


^»ST  “ S ST 

“39“ +4T35125E+00  +7.425006+00  +8.82062E+00 

W "SN  “ XOW  SN  YOH  SN  XBH  SN 

"45~+ 4. 371076+00  +7.376056+00  +7.386905+00 

£”SN  XOL  SN  YOL  SN  XBL  SN 

“7"  +4. 28436E+00  +7.487036+00  +3.593156-02 


DTDS  ST  THEY  ST  SECT  ALPHA 

-6.66667E+00  -6.0000'D=+3l  3 +150.00 

YBW  SN  SOW  SN  “THETrSN""  “SECT  ALPHA 

+ 1.28291  E+01""  +1. 49191E+3I  +4.  99372F+01  9 +150.00 

YBL  SN  SBL  SN  THET-  SN  SECT  ALPHA 

+9. 85330E-02  +1.075326-31  +4.39372E+01  8 +150.00 


>891? 

UZL 


AT  ALPHA  = +1 . 5000 6+02  WINDWARD,  RW  = +3. 13896+01  DELS  = +1.8342F-02  1S-U:<  = -3. 15346+00 

SIN(THETAW)  NEG.  FOR  KB  * +7.3369F+0Q  = +3.1389P+01  OFLS  = + l.P34?  = -:)2  35HD3<  = -3.15345+00 

SEC  Xfl  U XB  W YB  W SB  A THFT3W  PE/PS  W OP/DS  A 3t.  A OT  W PE  W OR  W XS1  M 


8 +4.J53E+00 
8 +4. 358E+00 

8 +4.3666+00 

9 +4.371E+00 
9 +4.4356 +00 
9 +4. 4996+00 
9 +4. 5636+00 
9 +4.627F+00 
9 +4.69 1E+0O 
9 +4.755F+00 
Q +4.8196+00 
9 +4.883E+00 
9 +4. 9476+00 

10  +5.0106+00 
10  +5. 010E+00 
“■*  10  +5. 010E+00 
10  +5. 010E+00 
10  +5. OlOE+OO 
10  +5. OlOE+OO 
10  +5. OlOE+OO 
10  +5. OlOE+OO 

r0'T5.T310E+00 

10  +5. OlOE+OO 
Iff  +570 1 OE +00 
10  +5. OlOE+OO 

ro  +5.'oroE+oo 

10  +5. OlOE+OO 

io"inr.T7rcrE+DO 

10  +5. OlOE+OO 
10  +5. OlOE+OO 
10  +5. OlOE+OO 
10  +5. OlOE+OO 
10  +5. OlOE+OO 
‘ * 10  +570106+00 
9 +4.947E+00 
' 9 +4.88  3E+00 

9 +4. 819E+00 
9 +4.755E+00 
9 +4.691E+00 
9 +4.627F+00 
9 +4. 563E+00 
9 +4.499E+00 
9 +4.435E+00 
9 +4. 371E+00 
9 +4.3716+00 
8 +4. 366F+00 
8 +4. 358E+00 
8 +4. 3536+00 
8 +4.3486+00 
8 + 4.3356+00 
8 +4.320E+00 
8 +4.303F+0P 
8 +4. 284F+00 
8 +4. 2656+00 
8 +4.244E+00 


-0.000F-39 
+3 .6546-04 
+3.278E-03 
+9.0466-03 
+1.35CE-01 
+2.6096-01 
+3. 8686-01 
+5.1?8E-01 
+6 , 3 87 £-01 
+7.646F-01 
+8.9066-01 
+1  • 016E+00 
+1.1426+00 
+ 1 .2686+00 
+1.456E+00 
+1.643E+00 
+1.831 E+00 
+2.018F+00 
+2. 2C6E+00 
+2.393E+00 
+2.581E+00 
+2.768E+00 
+2. 956E+00 
+3i  1 43E+00 
+3.331E+00 
+3.5186+00 
+3.7066+00 
+3 .8 93 E+00 
+4.081 6+00 
+4.268E+00 
+4.456E+00 
+4.643E+00 
+4.831 E+00 
+5.018E+00 
+ 5.2  55E+00 
+ 5 .492  E+00 
+5.72BE+00 
+5.965E+00 
+6 .2026+00 
+6.438E+00 
+6.675E+00 
+6.9126+00 
+7 . 148E+00 
+7.385E+00 
+ 7.  387E+00 
+7.400E+00 
+7.416E+00 
+7.425F+0O 
+7.434E+00 
+7.454F+00 
+ 7.474  F+OT 
+7.495E+00 
+7 . 5 16F+0'i 
+7.536r+9n 
+ 7.8  86F  + 00 


+0. 000F-39 
+ 1. 046E-02 
+3. 119E-02 
+5 . 139E-02 
+3. 973F-01 
+7.4336-01 
+ 1. 089F+00 
+ 1 . 435E+00 
+ 1 . 781F+00 
+2. 1276+00 
+2. 473F+00 
+2. 819E+00 
+3. 1656+00 
+3. 5 11F+00 
+3. 836E+00 
+4. 161E+00 
+4. 486E+00 
+4. 810E+00 
+5. 135E+00 
+5. 460E+00 
+ 5. 785E+00 
+ 6.  109E  + 00 
+6. 434E+0O 
+6. 759E+00 
+7.084E+00 
+7.40SE+Q0 
+ 7. 733E+00 
+ 8.058E+00 
+8.3B3E+00 
+ 6.707E+00 
+9. 032E+00 
+ 9. 357F+00 
+9. 682E+00 
+ 1.001E+01 
+1.0296+01 
+1. 057E+01 
+1.085E+01 
+1. 1136+01 
+1.1426+01 
+ 1.  1706+01 
+1. 198E+0 1 
+1.2266+01 
+1.2546+01 
+1.283E+01 
+1.2836+01 
+ 1.284E+01 
+1.2856+01 
+1.286F+01 
+1.2876+01 
+1. 287E+01 
+1. 238F+01 
+l.28RE+°l 
+1.2886+01 
+ l.2*»«E+0l 

+1.287F+01 


+0. 3006-39  +90.00 
+ 1.04  76-02  +B4.30 
+3.1426-02  +78.00 
+5.2J6E-3?  +70.00 
+4. 206E-01  +70.00 
+7.8836-01  +70.00 
+1.1575+00  +70.00 
+1. 6255+03  +73.00 
+1 . 893E+00  +73.30 
+2.2625+00  +70.00 
+2. 530E+00  +70.00 
+2.9955+00  +70.39 
+ 3. 3 366  + 00  +70.00 
+3. 7346+0 J +60. 00 
+4.1095+00  +60.00 
+4. 4846+00  +60.00 
+ 4.8596+00  +60.93 
+5.2346+00  +60.00 
+5.5096+00  +63.00 
+5. 984E+00  +60.00 
+6.359E+00  +60.00 
+5. 7346+00  +60.00 
+7.1 39E+00  +60.00 
+7. 484E+O0  +60.00 
+7. B59E+00  +60. 00 
+8.2346+00  +60.00 
+8.5396+00  +60.00 
+8. 984E+00  +60.00 
+9. 3536+00  +60.00 
+9.7345+00  +40.30 
+1.011E+01  +60.00 
+1.0435+01  +60.00 
+1 . 086E+01  +60.00 
+ 1. 1236+01  +60.30 
+ L. 16DC  + 01  +59.30 
+L.197E+01  +50.00 
+1. 2346+01  +50.00 
+1.2715+01  +50.00 
+1. 309E+01  +50.00 
+1.3445+01  +53.30 
+1. 3316+01  +50.00 
+1. 4135+31  +50.30 
+1. 455E+01  +50.00 
+1. 4926+01  +50.90 
+1.4926+01  +48.94 
+1.4946+01  +42.30 
+1.4966+91  +34.00 
+1.4975+91  +30.00 
+ 1.4986+11  +24.00 
H.  5305  + 01  +18.  90 
+ 1.532E+H  +10.00 
+1.5946+  H +2.90 
+L.536-+01  -6.90 
+ L.  533E+31  -14. 9C 
+ 1.513  = +n  -22.90 


+L. 0006+30 
+9.9516-01 
+9.568F-01 
+8.830E-01 
+8.8306-31 
+8. 833F-01 
+8. 833F-01 
+8.8336-01 
+P.839F-01 
+3 .8336-91 
+8.8806-91 
+8.8336-31 
+3.8336-01 
+7.5096-31 
+7. 50DE-O1 
+ 7.5,935-91 
+7.5O0F-31 
+7.5C0E-01 
+7. 500E-31 
+7. 500E-31 
+7 . 500 E— 01 
+7.5006-31 
+7.500E-01 
+7.5006-01 
+7.500E— 31 
+7.500F-01 
+7.500E-01 
+7.50QE-01 
+7.500E-01 
+7.503E-01 
+7.5036-01 
+7.503E-31 
+7.5036-31 
+7.503E-31 
+5.8636-91 
+5.8636-31 
+5.8636-31 
+5.8686-31 
+5.8686-31 
♦5.868E-31 
+5.868E-01 
+5.8636-31 
+5.868F-31 
+5. 8636-31 
+5.685 6-01 
+4.497F-31 
+3.1526-91 
+2.6696-31 
+2.2526-31 
+1 . 577F-31 
+1 • 083E-01 
+7.197E-72 
+4.5846-32 
+2.8536-32 
+1 .6966-32 


+4. 0385-35 
-6.5135+31 
-1.9335+32 
+3.0305-39 
+3.0305-39 
+0.0305-39 
+3. 3305-39 
+3.0305-39 
►0. 03*5-39 
+3. 3305-37 
+3.0305-39 
+3.0305-33 
+3.0305-39 
+9.0305-39 
+3. 3305-39 
+0. 0305-39 
+3.9395-39 
+0. 3305-39 
+3. 0305-39 
+3. 3305-39 
+3.0305-39 
+3.0305-39 
+3. 0305-39 
+■$:  0^5-39 
+3.0305-39 
+0.0305-39 
+3.0305-33 
+0. 0305-39 
+3.0305-39 
+3.0305-39 
+0.0305-39 
+9.0305-39 
+0.0305-39 
+3.3305-39 
+7.0305-39 
+3.0305-39 
+3.030E-39 
+3.3305-39 
+D. 0305-39 
+3.3305-39 
+0.0005-39 
+3.0305-39 
+3.3305-39 
+3.0305-39 
-4.6335  + 32 
-4.6525+32 
-4.  3375+32 
-3. 3325+32 
-2.6315+32 
-l . 945  5 + 3 2 
-1.4325+32 
-1.0295+32 
-7.0345+31 
-4. 75-75+31 
-3.9»o=+n 


+3.3326+00 
+2. 937E+0O 
+2.8726+00 
+2.5335+00 
+5.355E-01 
+4.9415-91 
+ 4.05  9E-01 
+3.5265-01 
+3. 1595-91 
+2.3336-01 
+2. 576F-01 
+2. 535E-9 1 
+2.3>3=-01 
+2.3535-01 
+2.7915-91 
+2.5515-91 
+2. 433P-91 
+2.325=-*l 
+2.2325-91 
+2.153E-01 
+2. 07>E-0 1 
+2.309E-01 
+L. 9496-31 
+ 1.39F5E-01 
H. 3425-01 
+ L . 795E-01 
+L. 7515-01 
+ L.U1E-01 
+1 . 6735-01 
+1.6375-91 
+1.7345-01 
+1.5736-01 
+L. 5436-01 
+1.5156-01 
+1. 5716-31 
+1. >435-01 
+L. 5175-01 
+1. 4925-91 
+1.4596-01 
+ 1 . +4  >5-91 
+1.4245-31 
+1. 4345-01 
H.  334F-01 
+L. 3655-01 
+3. 44SE-01 
+3. 3336-91 
+2. 4765-01 
+2.1766-01 
+1.9415-01 
+ L ♦ 4>  3E-01 
+1.1275-01 
+3. 5326-02 
+ 6.19  3fc-07 
+4. 4796-02 
+3.L27E-92 


+0. 030F-39 
+7.613F-01 
+1.4296+00 
+1.3595+09 
+1.275F+00 
+1.981F+09 
+1. 001F+30 
+9.4716-11 
+ 9.  ">706-1 1 
+8.753F-9] 
+ 3.  49?c_-,l 

+°. 774c-01 
+3.0*46-01 
+9. 744c— 9 l 
+9. 559c— 31 
+9.393F-01 
+9. 244c-3 1 
+9. J37F-31 
+ P. 99  2C-* 1 
+8. 867F-0 l 
+8.7596-91 
+8.66 OF— 01 
+8. 556E-91 
+8. 4796-01 
+8. 396E-01 
+8.318E-31 
+8.245E-01 
+8. 175E-01 
+8.1086-01 
+8.045E-31 
+7.9846-01 
+7.926E-01 
+7.870E-01 
+7.8176-01 
+8.201F-01 
+8.150E-31 
+8. 1016-01 
+8.0546-91 
+8.P08F-91 
+7. 963E-3 l 
+7.920E-31 
+7.8796-01 
+7.839F-01 
+7.7996-91 
+7.7866-01 
+7. 441F-91 
+6. 520c-01 
+6.036F-91 
+5.542P-*1 
+4.561E-91 
+3.6456-91 
+2. 9285-91 
+?. 1096-91 
+1.53*r-01 
+l.97ar-ni 


+0.003F- 
+3. 0776- 
♦2.691F- 
+7. 2H3F- 
+5.7866- 
+ 1 .985E- 
+1 .5926- 
+ 2. 99af- 
+2.605F- 
+3  . 1 1 1 P- 
+ 1.6186- 
+4. 124F- 
+4.631  E- 
+ 4.394F- 
+7.5R7F- 
+8.2796- 
+ 8.9716- 
+9. 6646- 
+1.9346- 
+1.1056- 
+ 1.174E- 
+1.2436- 
+ 1.3136- 
+ 1.'38'26- 


39  +2. 
05  +1. 
04  +6. 
94  +4. 
03  +1. 
02  + 9 1 
02  +0. 
92  +0. 
32  +0. 

02  +n. 
0?  +0. 
02  +0. 
92  +0. 
■02  +9. 
02  +0. 
02  +0. 
■02  +0 
02  +9. 
■01  +0. 
01  +0. 
01  +0. 
•01  +0. 
■01  +0. 
■i5i-+u; 


0186-01 

3876-01 

1236-02 

0135-02 

3716-01 

4A7E-02 

000F-39 

0005- 39 
0O0F-39 

0006- 39 
0006-39 
OOOE-39 
0306-39 
OOOE-39 
0006-39 
000F-39 
OOOE-39 

0005- 39 
3306-39 

0006- 39 
000F-39 

0005- 39' 

0006- 39 

00O6'-3"9" 


+ 1.9  34E-02 
+1.3756-02 
+2. 208E-02 
+2. 90J6-02  “ 
+1.597E-01 
+2.852F-01 
+4.056F-01 
+5.2106-01  ' 

+6. 314F-01 
+7.3686-01 
+8.373E-01 
+9.3306-01 
+1. 024E+00 
+1.1736+00 
+1.3246+00 
+1.4696+00  * 
+1.5096+00 
+1. 742E+00  ' 
+1  • 869E+00  , 
+r.  991 6+03“'“ 
+2.105E+00 


+2.3206tOO\; 

+2V417E+0O7 


+1.451E-01  +0. OOOE-39  +2.5086+00 
+1.520E-or  + 07tf006-39‘  +‘275936+00  1 
+1.589F-01  +0. OOOE-39  +2.572E+00  * 

+ 1 . 6596-01'  +0.  0006-3‘9'  +277356*311 — 
+1.729F-31  +0.0005-39  +2.8105+00 
+ 1.797F-01  +0.0006-39“  +2.8766+09 
+1.9666-01  +0.0006-39  +2.9226+00 
+1.9366-01  +0.0006-39  +2.9676+00 
+2.005F-01  +0.0006-39  +3.006F+00 
+2.074F-01  +0.0006-39  +3. 0375+00 
+2.4156-01  +0.0006-39  +3.193E+00 
+2.4936-01  +0. OOOE-39  +3.2626+00 
+2.549F-01  +0.0006-39  +3.322E+00 
+2. 445F-01  +0. OOOF-39  +3.373F+00 
+2.723F-01  +0.0006-39  +3.415E+00 
+2.7996-0]  +0. 0006-39  +3.4486+00 
+2.8766-01  +0. 000F-39  +3.470E+00 
+2.9536-31  +0.0005-39  +3.483E+00 
+3.0296-01  +0. OOOF-39  +3.484E+00 
+3.1O6F-01  +0.  OOOE-39  +3.4746+00““ 
+3.121E-01  +0.000E-39  +3.471E+00 
+3.1066-31  +0. 030F-39  +3.4756+00 
+2.3456-01  +0.0006-39  +3.523F+00 
+2. 680p-r)l  +0.0006-39  +3.565E+00 
+7.5006-01  +0.0006-39  +3.618E+0O 
+2.1186-01  +0.00OF-39  +3. 7606+00 
+1.739F-01  +0. OOOF-39  +3.951E+00 
+1 . 393F-01  +3. OOOF-39  +4.191F+00 
+1 • 057F-01  + *. 0006-3®  +4.478F+00 
+7 . 357F-3?  to. OOOF-39  +4.8066+00 
+5.630c-0?  +0.0006-39  +5.165F+00 


8 +4.223E+00 
4 +4*  2086+00 
4 +4.1926+00 
4 +4.1776+00 
V +4. 1626+00 

4_  +4. 148E+00 

4 +4.1356+00 
4 +4. 1236+00 
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4 +4.1026+00 

4“ +4  .“0936+00 
3 +3.701E+00 
3 +3.30  8E+00 
3 +2.9166+00 
TT27523E+00 
3 +2. 1306+00 
3 +1.7386+00 
3 +1.3456+00 
3 +9.5276-01 
3 +5.6016-01 
**  3 + 1.6T5I=OT 

1 +1.362E-01 


+7.5756+00 
+7 . 588E+00 
+7.6006+00 
+7.6116+00 
+7.621 E+00 
+7.630E+00 
+7.637E+00 
+7 . 643E+00 
■+7. 6 47 £+00 
+7.649F+00 
+7.650E+00 
+7.650E+00 
+776  50E+00 
+7.6506+00 
+7.6506+00 
_+7.650E+00 
+7:6506+00 
+7.6506+00 
+7.6506+00 
+7 • 650E+00 
~+7~.'6'50e+00 
+7.6486+00 


+1.2866+01 
+ L. 2856+01 
+1.284F+01 
+1.283E+01 
+1. 282E+01 
+1.281E+01 
+1.279E+01 
+1.2786+01 
+1:2766+01 
+1.275E+01 
+1.273E+01 
+1. 195E+01 
+1. 116E+Q1 
+1. 037E+01 
+ 9.  5906  + 00 
+8. 805E+00 
+8. 019E+00 
+7. 234E+00 
+6.449E+00 
+5.664E+00 
+4. 8796+00 
+4. 813E+00 


+1.5136+01 
+1.5146+01 
+1.5166+01 
+L. 5176+01 
+1.519E+01 
+1. 5206+01 
+1. 5226+01 
+1.524E+01 
+ l.~525E+01 
H.527E+01 
+1.5285+01 
+1. 607E+01 
+1. 5355+01 
+1.7646+01 
+ 1.  842E  + 01 
+1. 9216+01 
+L. 999E+01 
♦•2.  0 78  E + 01 
+2. 1555+01 
+2.2356+01 
♦•2. 3136+01 
+2.320E+01 


-30.00 
-36.00 
-42.00 
-48.00 
-54.00 
-60.00 
-66.00 
-72.00 
-78.00 
-84.00 
-90.00 
-90.00 
-90. 00 
-90.00 
-90. 00 
-90.00 
-90. 00 
-90.00 
-90.00 
-90.00 
-90:“!5  0 
-93. 00 


+9.7076-03 
+5.248E-93 
+3.905E-03 
+3.598E-03 
+3.598E-03 
+3.598E-03 
+3.598E-03 
+3.598E-03 
+3.598E— 03 
+3.599E-03 
+3.598E— 03 
+3.598E-03 
+3.598E-0T 
+3.5986-03 
+3: 598 E- 03 
<-3.5  98E-03 
+3.5986-03 
+3 . 598E-03 
+3.598E-03 
+3.598E-03 
+ 37  5986-0? 
+3.598E-03 


-1.  8946+01 
-1.293:01 
-8. 5756+00 
+ 0. 0006-39 
+0.0006-39 
0.3005-39 
+ 3.  0005-39 
+3.0306-39 
+0.0305-39 
+3.030E-39 
+0. 0305-39 
i-O.  0005-39 
+0.0305-39 
+0.0305-39 
+ 0'.  03  Of- 3 9 
+0.0305-39 
+0.0305-39 
+ 3. 030  5_- 39 
+ 3.  0305"-39 
+3. 0305-39 
+ 3. '0305-39" 
+0.0005-39 


+2.1476-02 
+L. 5315-02 
+i. 2*36-02 
+ 2. 2a  7E-33 
+2.2676-03 
+2.2576-03 
+2. 257E-D3 
+2^>67E-03 
+2.2676-33 
+2. 2675-03 
+ 2.  >5  76-03 
+2.254E-33 
+ 2.  26  5E-03 
+2.25<»E-03 
+2. 2625-03 
+2. 261E-03 
+2.2636-03 
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+2.237E-03 
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+3.4756-02 
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+3.414E-02 
+3.386E-02 
+3.3596-02 
+3.333E-02 
+3.308E-32 
+3.285E-02 
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IH.  COMPUTATIONS 


A.  BLOCK  DIAGRAM 

The  block  diagram  for  Program  1885  is  shown,  in  Figure  U.  The  overall  program 
is  divided  into  five  basic  calculations: 

1.  The  body  geometry  routine,  depicted  in  Figure  1 la, computes  the  body  co- 
ordinates at  zero  angle -of  attack,  locates  the  stagnation  point  at  angle  of 
attack,  defines  the  wind  axes,  and  thereafter  computes  the  body  coordinates 
in  the  transformed  axis  system.  The  array  of  body  coordinates  so  gener- 
ated is  thereafter  utilized  to  compute  the  pressure  and  heating  distributions. 

2.  The  pressure  distribution  routine,  depicted  in  Figure  1 lb, computes  the 
pressures  utilizing  several  calculation  models  by  testing  the  local  slope, 
curvature,  and  previous  pressure  value.  The  local  slope  and  curvature  are 
given  m the  coordinate  tables. 

3.  The  laminar  and  turbulent  heating  routine,  depicted  m Figure  1 lc, utilizes 
the  pressure  distributions,  surface  distance  information  from  the  coordinate 
tables,  and  thermochemical  data  from  the  oblique  and  normal  shock  routine 
to  evaluate  the  appropriate  heat-transfer  relationships. 

4.  The  oblique  and  normal  shock  routine,  depicted  in  Figure  1 Id, evaluates 
all  the  necessary  flow  conditions  behind  oblique  waves  assuming  equilibrium 
thermodynamics . 

5.  The  radiation  heating  routine,  depicted  in  Figure  lie, requires  that  the 
shock  layer  thickness  be  defined  everywhere  and  that  the  radiation  intensi- 
ties be  determined  at  the  body  and  at  the  shock. 

B.  SYMBOLS 


exponent  on  Lewis  Number  m stagnation 
point  heating  equation 

specific  heat  at  constant  pressure 

dissociation  enthalpy 

static  enthalpy  behind  oblique  wave 

stagnation  enthalpy 


Units 

ft2/ sec2  - °K 
ft  2/ sec2 
ft2/  sec^ 
ft  2/ sec2 
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INPUT 


INPUT 
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Figure  11a  BLOCK  DIAGRAM  FOR  PROGRAM  1885  — BODY  GEOMETRY  ROUTINE 
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OUTPUTS  GO  TO 


LAMINAR  HEATING 
TURBULENT  HEATING 
RADIAT1  ON  HEATING 
SHOCK  SHAPE  


85-0260 
Figure  lib 


BODY  GEOMETRY 
ROUTINE  OUTPUTS 


r i 


LAMINAR  AND  TURBULENT  HEATING 


85-0261 


Figurejl  1 


INPUT 

HEATING  DATA 


PRESSURE  DISTRIBUTION 
ROUTINE  OUTPUTS 


TB,  PR, 
LE,  LX,  J 
THETAT 


OBLIQUE  AND 
NORMAL  SHOCK 
(1885A)  PROGRAM 


OUTPUT 


DR,  QT,  QRS,  QTS 
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Figure  lid 


Figure  lie 
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435< 


h 

radiation  intensity  at  edge  of  boundary  layer 

3 

Btu/ ft  - sec 

i 

w 

radiation  intensity  behind  oblique  shock 

Btu/ ft2-  sec 

J 

index  for  body  shape;  j = 1 is  axisymmetnc; 

— 

0 is  two  dimensional 

L 

Lewis  Number 

- 

LC 

cylinder  length 

feet 

M 

mean  molecular  weight  of  atmosphere 

— 

m 

polynomial  exponent  for  radiation  profile 

— 

flight  Mach  number 

— 

n 

polynomial  exponent  for  mass  flow  profile 

-- 

Pa 

ambient  pressure 

lb/ ft2 

P 

e 

pressure  at  edge  of  boundary  layer 

lb/ft2 

Po 

reference  pressure;  PQ  = 2116.  2 

lb/ft2 

Pw 

pressure  behind  oblique  shock 

lb/ft2 

P 

ws 

stagnation  pressure  behind  oblique  shock 

lb/ft2 

Ps 

stagnation  pressure  behind  normal  shock 

lb/ft2 

p* 

e 

sonic  point  pressure 

lb/ft2 

PT 

stagnation  pressure  at  edge  of  boundary  layer 

lb/ft2 

laminar  heat  rate 

2 

Btu/ ft  - sec 

^LS 

stagnation  point  heat  rate 

Btu/ ft2-  sec 

turbulent  heat  rate 

Btu/ft2-  sec 

qR 

radiative  heating  rate 

Btu/  ft2 -sec 

-78- 

4S6< 

R 

universal  gas  constant;  R = 89500 

ft2/  sec2-°K 

RA 

' radius  of  rear  spherical  cap 

feet 

RB 

radius  of  flare 

feet 

RC 

radius  of  cylinder;  reference  radius 

feet 

RN 

radius  of  nose  cap 

feet 

RSB 

toroidal  radius  at  flare  base 

feet 

RSC 

toroidal  radius  of  fore  cone  base 

feet 

RSN 

toroidal  radius  following  nose  cap' 

feet 

RT 

base  radius  of  truncated  after  body 

feet 

So 

surface  distance  m zero  angle -of -attack  coordinates 
measured  from  stagnation  point 

feet 

Sb 

surface  distance  m wind  coordinates  measured 
from  stagnation  point 

feet 

Sos 

surface  distance  from  zero  angle- of -attack  stagnation 
point  to  stagnation  point  at  angle  of  attack 

feet 

Sb 

surface  distance  to  sonic  point 

feet 

Ta 

ambient  atmospheric  temperature 

°K 

Tb 

body  surface  temperature 

°K 

Te 

temperature  at  edge  of  boundary  layer 

°K 

To 

reference  temperature;  Tq  = 273.  16 

°K 

T 

w 

temperature  behind  oblique  shock' 

°K 

?ws 

stagnation  temperature  behind  oblique  shock 

°K 

Ts 

stagnation  temperature  behind  normal  shock 
-79- 
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°K 

Tt  stagnation  temperature  at  edge  of  boundary  layer  oj£ 

Ue  velocity  at  edge  of  boundary  layer  ft/ sec 

Uw  velocity  behind  normal  shock  ft/ sec 

V flight  velocity  ft/ sec 

xc,  y body  coordinates  at  zero  angle  of  attack  feet 

xb>  yb  body  coordinates  in  wind  axes  feet 

, yj*  sonic  point  coordinates  m wind  axes  feet 

xos,yos  angle-°£*attack  stagnation  pomt  coordinates  feet 


measured  in  zero  angle  of  attack  coordinates 

Z compressibility  factor;  number  moles  per 

initial  mole 

a angle  of  attack  degrees 

fi  pressure  gradient  parameter 

ya  ratio  of  specific  heats  for  ambient  atmosphere 

yw  adiabatic  exponent  behind  oblique  shock 

yg  adiabatic  exponent  behind  normal  shock 

y^  adiabatic  exponent  at  edge  of  boundary  layer 


Pa  ambient  density  of  atmosphere  slug/ft3 

Pw  density  behind  oblique  shock  slug/ft3 

pe  density  at  edge  of  boundary  layer  slug/ft^ 

Pwg  stagnation  density  behind  oblique  shock  slug/ft3 

ps  stagnation  density  behind  normal  shock  slug/ft^ 

p density  at  body  surface  slug/ft3 

p^s  density  at  body  surface  at  stagnation  point  slug/ft^ 
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PT 

stagnation  density  at  edge  of  boundary  layer 

slug /ft3 

angle  corresponding  to  local  body  slope 

degrees 

oblique  shock  angle 

degrees 

0wL 

flow  deflection  angle  behind  oblique  shock 

degrees 

"b 

viscosity  evaluated  at  (Tj-,) 

lb-sec/ft2 

viscosity  evaluated  at  (Te) 

lb-sec/ft2 

viscosity  evaluated  at  (Ts) 

lb-sec/ft2 

€ 

coordinate  normal  to  body  surface 

feet 

shock  standoff  distance  normal  to  body 

feet 

a 

Prandtl  Number 

-- 

C.  EQUATIONS 

The  equations  for  generating  each  section  of  the  shape  are  summarized  below:. 
1.  Shape  Generation  Equations 
Section  l.  (Nosecap) 


Coordinates 


X1 


Formula 


kN(1  - 


Independent  Variable  Limits 


id  ) 


Rjj  ( 1 ~ sin  0^) 


90,  6 ! = 


0,  £ 0 


(1) 


yQ  ->  yi 
n 


y0  =o 

y = Rn  cos  6 


Vl 


— Rm  COS  (?W 
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Section  2, (Torus) 


xi  - x2 
x2 

yl  y2 
y2 


Section  3.  (Cone) 
Cone:  Input  0c  = d2 


x2  -»  x3 

x3 

y2  y3 
y3 

Section  3. 
Tension  Shell: 


x = xi  + rsN  (Sin  % — sin  0)»  = % 

x2  = + Rsn  (sin  0N  - sin  02)  (2) 

^2  — ^ 

7 = 72  + Rsn  (cos  6 - cos  %)  , ^2  = cone 
72  = 7j  + R$N  ^cos  ^2  “ cos  ^2  “ & tension  shell 
&2  = &2G  Senera^  shell 


(y2  _ y2) 


In 

' sin  8 ' / 

In 

+ COS  jS^  ( 

' sinjS  )) 

X = x2  + (7  - 72)  cot  $2 
X3  = x2  + (y3  - 72)  cot  d2 

y “ y y2  < y < y3 

73  = Rc  - Rsc  ( 1 - COS  #2  ) 


j8  < 0 < 5>0 


(3) 


(4) 


as 


-(i  - fl 


X - x2  = 


1: 


0 y2  < y < y3 


2 7 (sin2  0)  In 


{ 1+cos  /3^ 

1«-J3  ) 


1l  ” Rc  - Rso 
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Section  3. 

, General  Shape:  Input  Coordinates 

Table 

Table 

Of  x 1 

of  y J 

25  points 

First  pair  of  coordinates  arex2  > y2 

(5) 

Last  pair  of  coordinates  are 

Also,  02G  * 

03G  • 

y3  - Rc 

- Rsc  - 

-cos  03G) 

y2  - 71 

+ rsn  (cos 

02g  — cos  %) 

Section  4. 

(Torus) 

Coordinates 

Formula  Independent  Variable  Limits 

x3  **  x4 

x = xj  + Rsc  (sin  d^-sin  0) 

x4 

x4  ~ x3  + Rsc  sm  e3 

o <0  <0$  (6) 

y3  - y4 

y = y3  + Rsc  (cos  $ - cos  0j) 

H ‘ 

0C  , cone 

?4 

y4  = Rc 

0^  ss 

90,  tension  shell 

H = 

$3G , Gen.  Shell 

Section  5. 

(Cylinder' 

) 

Ind.  Var.  (X) 

x4  - x5 

X = X 

*4  £ 

x x4  + Ax 

x5 

x^  = x^  + Ax 

Ax  < 

Lc  (7) 

74  - 

y « Rc 

Section  6, 

(Flare) 

Ind.  Var.  (y) 

' x5  **  x6 

x = x5  + (y  - Rc)  cot 

x6 

x6  = x5  + (y6  - Rc)  cot  eB 

7?  - ?6 

y = y 

y5  * 

y < yg  ^ 

y6 

y6  = rb  - RSB  (1  - cos  eB ) 
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Section  7.  (Torus) 


x6  ^ x7 
x7 

- yy 
y7 

Section  8. 

x?  - Xg 
x8 

77  - 78 

78 

Section  9. 

Xg  -»  Xjj 

x9 

78  ^ 79 

Section  10. 

x9  " x10 
x10 

y9  710 
7X0 

Section  10. 
x = x9 
7 = y 
710  = 0 
y9  » Rx 


X = Xg  + Rsb  (sin  0g  - Sin  6) 

x7  = x6  + rSB  s‘a  eB  0 < e < eB  (9) 

y — yg  + Rgg  (cos  6 — cos  ) 

77  = RB 

(Torus) 


x — Xy  — Rgg  sin  6 
xg  = x7  ~ RS0  sin  0A 

y = y7  - RSB(1  -cos^) 

78  = 77  * RSB  ^ “ C0S^A) 

(Aft  Cone) 


(10) 

dA  < 6 < 0 


x = Xg  + (y  - y8)  cot  0A 

x9  = x 8 + ^9  - 7s)  cQt  y9  < y < y8  (H) 

y - y 

7t)  ~ rA  cos  » or  y9  “ rt  (optional) 

(Aft  Cap) 


* x = Xfj  + RA  (sin  0A  — sin  6) 
x10  = x9  + rA  (sin  0A  + D -90  < 0 < 0A  (12) 

y * Ra  cos  6 
710  - 0 

(Truncated  Base) 


0 < y < Rt 
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2.  Surface  Distance  Equations 

Section  l. 

Formula 

Limits 

So 

S0  = 0 

S0  - Si 

S = % 

(90  - %) 
57.3 

% < 

6 < 90 

{13) 

c 

c _ p 

VO 

0 

1 

€ 

51  - rn 

57  3 

Section  2, 

Si  ■*  s2 

s = sx 

(0N  - 0) 
h Rsn  57.3 

$2  < 

0 < 02 

(14) 

S2 

S2  = S1 

+ %n  (0n  " 02  >/57-3 

Section  3 • 

S2  ^ Sj 

s = s2 

(x  -x2) 
cos  a2 

k2  S. 

X < X3 

(15) 

S3 

S3  = s2 

(x3  -x2) 
COS  <?2 

«2  - 

0C 

s « s2  + 

f dy 

(16) 

/ sin  0 

/y2 

Section 

4. 

S3  - s4 

S = S3  + Rsc  (03  - 0J/57.3  0 < 0 < 03 

(17) 

Section 

5. 

s4  : s5 

S « S4  + (x  - x4)  x4  < x < x5 

(18) 

-85- 

5G3< 

Section  6. 


b5  - 

Section  7. 
s6  . s7 

Section  8. 

S7  ^ S8 
Section  9. 

Sg  -*•  S9 
Section  10. 

S9  "*  s10 

or 

3.  Axes  Transformation 


S = + (x  — Xj)/cos  < x < xg  (19) 

( 0b-6 ) 


S « S*  + R« 


'6  + kSB 


57  3 


0 < 0 < 6t  (20) 


S = s7  - Rsb  (0/ 57.3)  eA  < 0 < 0 (21 ) 

s = Sg  + (y  - y8)/sin  0A  y9  < y < y8  (22) 

S = S9  + Rsa  (6a  - 0)/57.3  -90  < 6 < 0?  (23) 

S ~ Sp  + (Rj  — y ) 0 < y < R7 


7b  * I (y0  " 7os)  cosa  + (xo  " xosJsmal  (24) 

xb  = (xo  - xos>cosc  - ( y0  - yos)sin  G (25) 

Body  slope  and  surface  distance  at  angle  of  attack. 

4.  Windward  Meridian 

Proceeding  from  Xq  = xQS  m direction  of  increasing  (x0  )» 
dh  = eo  + a 

(27) 

+y0  used 
Sb  - So  “ Sos 

When  (x0)max  is  reached,  reverse  direction  to  decreasing  (xQ),  and  use. 


^b  = « ~6o  ~ 180 
-Vo  used 

Sb  = 2(So^max  ~ Sos  - So 


'28) 
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5.  Leeward  Meridian 


Proceeding  from  xQ  = xQS  in  direction  of  decreasing  (Xq 
eh  = 180  -eo  - a 


+ yo  used 
Sb  - Sos  - S0 

When  (xq  =o  ) is  reached,  reverse  direction  increasing 
eh  = 6q  - a 

~y0  used 
Sb  = Sos  + So 


Sonic  Point  Location 
yS 


-*1  T — ' 

YS+  1 


2 (ys-x> 


7 . Equation  and  Logic  for  Stagnation  Point  Location 


Test  each  section  for  all  possible  cases  of  a + 6 ~ 90. 

point  at  maximum  xa  , 

xa  = yos  sin  a ~ xos  cos  <*  » 

8.  Oblique  Shock  Equations 


M = 28  XN  + 32  Xq  + 44  Xc  + 40  XA 
Cp  « (R/M)  (3.5  XN  + 3.5  Xq  + 2.5  XA) 
H = (V2/2)  + Cp  Ta 


1/2 


50S< 


(29) 

(x  ),  and  use, 

O 

(30) 

(31) 

Select  stagnation 

(32) 

(33) 

(34) 

(35) 

(36) 


n 


(CpM/R) 


(37) 


[(CpM/R)- 1] 


H M f V2  (Pa\2 

rTq  y~  IT  Lw/ 


sin2  + cos2 


Pa  V" 


9.  Oblique  Shock  Solution 


Pw 


pw  M 
ZRTW 


sm2  <9W 


cos2  6^  + (pa/pw)  sin2  0W 
sm  cos  0WU  -Pa/Pw) 


Pw/Pa  + 1 
'W  = P^Pa  - 1 


(38) 

(39) 

(40) 

(41) 

(42) 

(43) 

(44) 

(45) 
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Start  oblique  shock  calculation  at  0W  = 90  degrees  When  Iw  < INST0P  cease 
calculation  of  1^  at  smaller  0w’s  At  this  time  the  value  of  yw  is  taken  as 


(yw  Xa) 
( 9w  ~ ) 


(46) 


where  8W  is  first  angle  where  Iw  < INST0P  and  yw  is  corresponding  yw  . 


y.a  = sin  1 


1 


(47) 


Pw  (^W  + ^ sin  ^ 

pa  [(yw  - 1)  M2  sin2  & w + 2] 

I is  taken  as  zero  for  6 < 6 ' 

w w w 

Remainder  of  shock  variables  via  Equations  (38),  (39),  (40),  (41),  (42), 
and  (44) 


10.  Equations  for  Pressure  Distribution  0 < sb  1 sb 
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11.  Pressure  Distribution  \>  \ 
Equations  for 


Newtonian 

pe  pa 

= Sin2  6h  + ~~  cos  2 eh 
s 


(52) 


PC:  Pressure  is  constant  = last  value 

Prandtl  - Meyer:  Use  table  look  up 


Pe/Ps  initial  val.  ->  initial  v- 

v,  - vi  + (»,  " V 

v)  - VPs 

Pressure  Limit 


Entropy  Layer 


Entropy  Layer  Equations, 
J = 0 


Ys  + 1 

d<VPs>  _ 21  /M 

dxb  ~ b2  ' \ ps  / 


(53) 


(54) 


(55) 


(56) 


B 


2 


/Ybb  P 

0 
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An  average  stagnation  point  velocity  gradient  is  needed  to  evaluate  heating. 

A velocity  gradient  is  obtained  for  both  the  windward  and  leeward  meridians. 
For 


0 < a < 90  - 0N  and  (180  + 8^)'  < a < 180 

/* /du_\  _ /duA  /dw\ 

W*  " ' 2 Wwind  + 2 U/lc= 

For  (90  - % ) < a < (180  + 6A  ) 


509 < 


L^7 


where  ( y ) is  the  value  of  y in  zero  angle  of  attack  coordinates  corres- 
ponding to  the  new  stagnation  point. 


!L 

*LS 


Mb*  Pb  Ue 
(1.068)^ 


(61) 


qL  _ /^\  ^ 

(,Ls)a=0  "Ws/  X (9LS>o  = 0 
PSM 

Pbs  ‘ RTb 

/t  = pt  (T)  Table  cook  up 

pe  M 

Pb  = R Tb  - 

14..  Equations  Modified  by  THETA T Input 
ue  = 72H 

Tx  - Tws  (THETATT) 

y,-1 


(62) 

(63) 

(64) 

(65) 

(66) 

(67) 

(68) 


Ye  ■>  yw  CTHETATT) 

PT*  = pws  (THBTATT) 

1 

M Y * 
ps  ptJ 

Px  = Pws  (thetatt) 

15.  Reynold's  Number 

Pe  “c  Sb 

Re  = 

Pe 

16.  Laminar  Heating  Parameters 

ue  y l1  dsb  + < 


)c  2j  + 2 
(2 1 + 2) 

/dn\ 


(Pc  Ue3  Pb  Pb  yb2’) 

17,  Turbulent  Heating 
ct 

q-r  b a U H 

T 2 (778)  ,c  c 


d P_ 


dSk 


JS  u 


(69) 

(70) 

(71) 

(72) 

(73) 

(74) 


(75) 


(76) 


(77) 
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(78) 


**  o2/3  Re  0-2 


\-i-ef  (t)' 


(i*  - fi  (T*  ) 


■ {l  + 1/2(^-  -1)+0'22M  1/3  (J^-1)} 


18,  Radiation  Heating 


~ Ib  + m + l ^ 


19.  Shock  Shape 


(Xb  + As)  cos  0W  - yb  (1  - Sin  0W) 
cos  #b  — sin 


xb,  yb,  are  taken  as 


xb  = xb  and  7b  * ^b 


— <0  0 < S < SK*,  or 

dS  b 


*b  * <AS0) 


xb  = xbb  and  7b  = 7bb  < TT ’ « 0 and  xb*  > (ASo) 


cos  % + yb 


(86) 


) = 1 

C1  £w2  + c2  + c3 
(Positive  Root) 

C-,  = 2 cos  0l 


(87) 


(l 

Pe 

1 

Pw 

Yw 

„ „ Pe 

U*1 

i2 

Pa 

V 

n + 2 

_ Pa 

V 

cos  (0wL“  

Pa 

“I 

— COS2  dfo 


( Pe  Ue  1 

2>VL  V + n+  1 


Pw  Uw  Pe  Ue 

- t cos(^l-  V-~  V 


>-  2yh  c 


“3  " " V 


i = o 

£ It (88) 

7>W 


Pe  Ue  1 

«P 

pI  V n + 1 

COS  (0  y — 01  ) — 

Pa  V wL  b Pa  V_ 

— COS  0b 

Determination  of  : 

Yw2  (1  - Btan2  0b  ) + Yw  [2RW  tan  % + 2B  (Xfa  + Afi)  tan  ^ + 2BYb  tan2  %] 

-2RW  [Xb  + As  + Yb  tan  %]  - B (Xb  + As)2  - BYb2  tan2  &b  - 2B(Xb  + As)  Yb  tan  ^ = 0 (89) 
2RW  + 2B  [Xb  + As  - (Yw  - Yb)  tan  $h ] 


Tan  0^ 

2 Yw 

Evaluate  B at  first  point  where  ^b  < 0. 
(Yb  + £)  tan  0W  - Rw 

B = (Xb+  As) 


(90) 


(91) 
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(92) 

(93) 

(94) 
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IV.  IBM  ROUTINES 


A.  PROGRAM  FLOW 

The  program  flow  for  the  A and  B parts  of  Program  1885  is  illustrated  in 
Figure  12  below. 

1885A  PROGRAM  FLOW 


1885B  PROGRAM  FLOW 
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B.  COMMON  STORAGE 


Common  data  in  1885B  is  transferred  between  subroutines  and  the  main  pro- 
gram for  two  primary  purposes,  the  first  for  computing  zero  angle  - of -attac:  co- 

d(Pe/Ps)  d* 

ordinates,  (SUB110)  and  for  computing  the  derivatives (PREP)  or  — — 

dx  dS 

(DXSIDT),  where  the  ADM4RB  and  DEREQB  predictor -corrector  system  is 
used  to  solve  numerically  one  or  the  other  of  these  differential  equations.  Note 
that  the  C0MM0N  DATA  variables  XMEM£>  and  THETAC  appear  m equivalence 
statements,  and  are  thus  the  first  items  m common  storage  core  locations. 


ALPHA 

a 

Program 

Input 

SUB110 

Input 

Array  of  angles  of  attack. 

BETA 

P 

Program 

Input 

SUB110 

Input 

Tension  shell  angle. 

CTHSTT 

DXSIDT 

DEREQB 

Input 

Value  of  cos  (THSTRT)  at  start 
of  integration  interval. 

DATE 

Program 

Input 

In  to 
S UB 110 

Identification  number. 

DNI 

Not  currently  used. 

DN2 

Program 

Input 

PREP 

Input 

Lower  bound  for  accuracy  m 
integrating  d(Pe/Ps)/dx 

DTDSO 

d\ 

SUB110 

S UB  110 
Output 

^ox 

Array  of  — for  a.  — 0 coordi- 

nates. 

DTDSST 

DXSIDT 

DEREQB 

Input 

deb 

Value  of  — — — at  start  of  inte- 

asb 

g ration  interval. 

DTDSTB 

d0i 

dSj 

Program 

Input 

SUB  110 
Input 

d*x 

Array  of for  general  shape. 

dsx 

GAMS 

ys 

Program 
Input  or 
18 85 A 

DEREQB 

Input 

Value  of  ys  for  calculation  Input. 

GM  10  G 

Main 

DEREQB 

Input 

(ys  - D/rs 
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GP10G 

Main 

DEREQB 

Input 

<ys  + 1 )/ys 

GS0B  yj  B 

PREP 

DEREQB 

Input 

ys/Bx  or  ys/B2  used  to  integrate 
d(Pe/ps)/ds 

HAMB  H 

Program 
Input  or 
I885A 

DEREQB 

Input 

Enthalpy  used  to  compute  Ue/V  , 
etc.  , for  shock  and  radiation. 

ICASE  CASE 

Program 

Input 

In  to 
SUB  1 10 

Identification  number. 

I LINE 

Main 

SUB  1 10 
In  & Out 

The  page  number  on  printing 
a - 0 coordinates. 

lOl 

SUB110 

S UB  110 
Output 

Sentinel  1,  2,  3,  if  section  3 is 
cone,  tension  shell,  or  general 
shape. 

102 

S UB 110 

SUB  110 
Output 

Sentinel  1,  2,  if  section  10  is 
sphere  of  flat  base. 

IOTBL 

Program 

Input 

SUB110 

Input 

If  = 1,  a - 0 coordination  are 
printed. 

IPAGE 

Main 

S UB  110 
In  & Out 

Page  number  on  printing  a = 0 
coordinates. 

JFL  Xj 

Program 

Input 

DEREQB 

Input 

Sentinel  for  1-D  or  2-D  flow. 

JOMAX 

S UB  110 

S UB  110 
Output 

Number  of  points  in  a - 0 coor- 
dinate tables. 

d(Pe/Ps> 

KINDEQ 

DXSIDT 
or  PREP 

DEREQB 

Input 

If  0,  integrate  , if  >0, 

integrate  d^/dSk  . 

M Mq 

SUB110 

S UB  110 
Output 

Array  of  section  numbers  for 
a - 0 coordinates. 

NALPHA 

Program 

Input 

SUB  1 10 
Input 

Number  of  angles  of  attack  on 
the  array  ALPHA. 

NUMBER 

Program 

Input 

In  to 
SUB  110 
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Identification  number. 
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Mgs 

Mam 

DEREQB 

Input 

Vys. 

PAP 

PREP 

DEREQB 

Input 

Value  of  PA/PS  as  a lower  pres- 
sure limit  for  d(Pe/Ps)/dX  in- 
tegration. 

PIR 

Main 

SUB110 

Input 

deg/rad. 

PSTART 

DXSIDT 

DEREQB 

Input 

Value  of  Pe/Ps  at  start  of  inte- 
gration interval. 

PST0P 

DXSIDT 

DEREQB 

Input 

Value  of  Pe/Ps  at  end  of  integra- 
tion interval. 

RA 

ra 

Program 

Input 

In  to 
SUB  110 

Aft  cap  radius. 

RAD 

Main 

DEREQB 

Input 

rad/deg. 

RB 

rb 

Program 

Input 

In  to 
SUBI10 

Flare  and  aft  cone  base  radius. 

RC 

Rc 

Program 

Input 

In  to 
SUB110 

Cylinder  and  cone  base  radius. 

REYT 

Not  currently  used. 

RH0A 

Pa 

Program 
Input  or 
1885A 

DEREQB 

Input 

Ambient  density. 

RN 

rn 

Program 

Input 

In  to 
SUB110 

Nose  radius. 

RSB 

rsb 

Program 

Input 

In  to 
SUB110 

Toroidal  radius. 

RSC 

Rsc 

Program 

Input 

In  to 
SUB  no 

Toroidal  radius  at  base  of 
cone. 

RSN 

rsn 

Program 

Input 

In  to 
SUB110 

Toroidal  radius  aft  of  nose. 
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RS0RA 


RT 

RTBL 

SECTN 

SO 

SQ2HV2 

SSTART 

SST0P 

TA 

TABLE 

TANTB 

TANTB2 

TB 

THET 


PS/PA 

Program 
Input  or 
1885A 

DEREQB 

Input 

Value  of  ps/pA  f°r  calculation. 

R^. 

Program 

Input 

In  to 
SUB110 

Base  truncation  radius. 

Yx 

Program 

Input 

SUB110 

Input 

Array  of  yL  for  general  shape. 

Mam 

SUB110 

Input 

Section  number  for  labeling. 

S 

°x 

SUB  110 

SUB110 

Output 

Array  of  SQ  for  a = 0 coordinates. 

Mam 

DEREQB 

Input 

(2H/V2)1/2 

PREP  or 
DXSIDT 

DEREQB 

Input 

Value  of  at  start  of  integra- 

tion interval. 

DXSIDT 

DEREQB 

Input 

Value  of  at  end  of  integration 

interval. 

ta 

Program 
Input  or 
1885A 

DEREQB 

Ambient  temperature. 

Program 
Input  or 
1885A 

DEREQB 

Input 

Two-dimensional  array  of  oblique 
and  normal  shock  properties. 

PREP 

DEREQB 

Input 

Value  of  tan  (0b  ) at  start  of 
straight  section  for  d(Pe/Ps)/dx 
integration. 

PREP 

DEREQB 

Input 

TANTB2 

tb 

Program 

Input 

DEREQB 

Input 

Body  temperature. 

GETTWG 

DEREQB 

Output 

Value  of  0^  corresponding  to  ^ 
m integrating  d^/dS^ 
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THETA A 


THETAC  eQ 
THE TAN  % 
THETAO  6q 

i 

THETB  6b 

THET2G  d? 

2G 

THET3G  do 
3G 

THSTRT 

THWGS 

THWLIM 

TW0BB 

UP1 

UP2 

V V 

XA  XA 


Program 

In  to 

Input 

SUB110 

Aft  cone  angle. 

Program 

In  to 

Input 

SUB110 

Fore  core  angle. 

Program 

In  to 

Input 

SUB110 

Nose  cap  angle. 

SUBI10 

SUB110 

Array  of  0Q  for  a - 0 coordi- 

Output 

nates. 

Program 

In  to 

Input 

SUB110 

Flare  angle. 

Program 

SUB  110 

Angle  at  first  point  on  general 

Input 

Input 

shape. 

Program 

SUB110 

Angle  at  last  point  on  general 

Input 

Input 

shape. 

DXSIDT 

DEREQB 

Value  of  0^  start  of  integration 

Input 

interval. 

GETTWG 

DEREQB 

Value  of  Qy  corresponding  to  € 

Output 

from  d^/dSjj  . 

Main 

GETTWG 

1.1  Sin-*  ( 1 ), 

Input 

MACH 

lower  limit  to  0W  for  d^/dS^ 

PREP 

DEREQB 

2B,  or  2B£  used  to  integrate 

Input 

d(Pe/Ps)/dx 

Not  curre: 

ntly  used. 

Program 

PREP 

Upper  bound  for  accuracy  m 

Input 

Input 

integrating  d(Pe/Ps)/dx 

Program 

DEREQB 

Input  or 
1885A 

Input 

Vehicle  velocity. 

Program 

DEREQB 

Mole  fraction  of  Argon  m 

Input  or 

Input 

undissociated  mixture. 

1885A 
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xc 

xc 

Program 
Input  or 
1885A 

DEREQB 

Input 

Mole  fraction  of  C$2  m undis- 
sociated  mixture. 

XGB 

Not  currently  used. 

XLC 

Lc 

Program 

Input 

In  to 
SUB110 

Cylinder  length. 

XMEMQ 

MEM0 

Program 

Input 

In  to 
SUB110 

Identification  number. 

XMMX 

MM 

Program 

Input 

FINDRW 

or 

DXSIDT 

Input 

Used  by  FINDRW  or  DXSIDT 
to  compute  QR. 

XN 

N 

Program 

Input 

In  to 
SUB110 

Array  of  divisions  per  body 
segment. 

XNN 

% 

Program 
Input  or 
1885A 

DEREQB 

Input 

Mole  fraction  of  N2  in  undis- 
sociated  mixture. 

XNNX 

NN 

Program 

Input 

DEREQB 

Input 

Used  to  compute  shock 
shape. 

xo 

\ 

SUB110 

SUB110 

Output 

Array  of  xQ  for  a = 0 coordi- 
nate s . 

X0 

Xqt 

Program 
Input  or 
1885A 

DEREQB 

Input 

Mole  fraction  of  $2  m undisso- 
ciated  mixture. 

XSTART 

PREP 

DEREQB 

Input 

Value  of  x^  at  start  of  straight 
section  for  d(Pfi/P g)/dx  inte- 
gration. 

XTBL 

xi 

Program 

Input 

SUB  110 
Input 

Array  of  xA  for  general  shape. 

YGB 

Not  currently  used. 

* 

YO 

SUB110 

SUB110 

Output 

Array  of  y0  for  a = 0 coordinates 

YSTART 

PREP  or 
DXSIDT 

DEREQB 

Input 

Value  of  at  start  of  integra- 

tion interval. 
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C.  1885A  SUBROUTINES 
CALLING  SEQUENCES 


tfBLIK 

Variable 

RH0A,  Sa, 
ambient  density 

XA,  argon  mole 
fraction  in  atmos  - 
phere 

XC,  COg  mole 
fraction  in 
atmosphere 

XN,  Ng  mole  frac- 
tion m atmosphere 

Input  or  Output 

Input 

Input 

Input 

Input 

Source 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

XCjs,  Oz  mole 
fraction  in  at- 
mosphere 

XPL,  print  sen- 
tinel for  con- 
verged iteration 

XPE,  print  senti- 
nel for  each 
iteration 

DELAL,  move- 
ment in  wave 
angle  table 

TA,  Ta,  am- 
bient tempera- 
ture 

V,  velocity 

Input 

Input 

Input 

Input 

Input 

Input 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

Program  Input 

TABLE,  table  of 
oblique  shock 
data 

IGQ50F,  senti- 
nel > 1 if  solu- 
tion impossible 

PATAB,  print 

PA,  ambient 
pressure 

HA,  ambient 
enthalpy 

AM,  Mach 
number 

Output 

Output 

Input 

Output 

Output 

Output 

0BLIK 

£>BLIK 

Program  Input 

0BLIK 

(JBLIK 

gJBLIK 

XM,  mean  mo- 
lecular weight 
of  atmosphere 

HDHS90,  dis- 
sociation energy 
for  normal  shock 

QINSTP,  lowest 

radiation 

intensity 

Output 

Output 

Input 

£>BLIK 

0BLIK 

Program  Input 

PHIL 

V ariable 

TABLE,  table  of 
shock  data 

ITH,  index  of 
last  TABLE  com- 
puted intensity 

DELAL,  incre- 
ment in  0&w 

IGOOF,  sentinal 
> 1 if  solution 
impossible 

Input  or  Output 

Input/Output 

Input 

Input 

Output 

Source 

0BLIK/PHIL 

0BLIK 

Program  Input 

PHIL 

Calling  sequences  for  all  other  subroutines  are  as  in  Section  1883 
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1.  0BLIK 


Purpose:  To  perform  the  oblique  shock  calculation  and  prepare  a table  of 
shock  data,  TABLE. 

Method*  TABLE  is  a two-dimensional  array  46  x 13.  The  13  columns  con- 
tain the  variables  0W  (THW),  Pw/Pa  (DENINV),  pwUw/paV  (DENINV- UW0V), 

0WL  (THWL),  yw(GAMW),  TW(T),  /pQ  (PRS),  Hv/ H (ENT- R . TO/(XM-  HH)), 

PW$/pA  (RWS0RA),  Pws  /Po  (PWS0P0),  TWS  (T - HM0RT  Z/ENT),  IW 
(2  • QSUM/DEL),  and  IB  (2  • QSUM/DEL),  where  IB  is  evaluated  at  the  en- 
thalpy ENTB. 

After  initializing  TABLE,  defining  output  names  {ZNAMI  and  ZNAM2), 

0BLIK  computes  ambient  conditions  and  selects  the  proper  set  of  tables  of 
temperature  and  enthalpy  for  the  atmosphere.  This  is  done  before  HVST  is 
called  after  statement  1001.  A loop  from  1002  to  the  statement  before  1024 
then  decrements  the  value  of  6 ^ in  decrements  of  DELAL  until  the  lower 
limit  m dy  is  reached  and  solved  (If  test  before  1006),  or  until  the  wave 
intensity  (TABLE(ITH  , l2)]is  less  than  the  input  INST0P  (test  after  2005). 

The  first  0 w is  for  the  normal  shock  (90  degrees),  and  the  calculation  is 
done  in  the  same  way  as  described  in  Program  1883.  Provision  for  this 
special  case  is  made  by  the  IF  test  before  statement  1017.  For  all  other  values 
of  an  iteration  on  the  density  ratio  is  performed,  convergence  being  determined 
by  two  successive  values  of  the  density  ratios  differ  by  less  than  1 percent 
(IF  test  before  Statement  1022).  The  iteration  for  such  value  90  > % > THWL 
is  as  follows.  Given  a first  guess  for  the  density  ratio  (DENR)  from  the 
preceding  computation,  the  pressure  and  enthalpy  are  expressed  as  PRS  and 
ENT  (after  Statement  1021)  in  terms  of  DENR,  0W,  and  the  ambient  condition. 
HEAT2  is  called  which,  as  in  1883,  converges  on  the  pressure  and  enthalpy 
and  in  the  process  computes  a new  density  ratio  which,  for  convergence, 
approaches  the  estimated  value.  Corresponding  to  the  last  iteration  is  the 
radiation  QSUM,  which  is  simply  related  to  IW  [ TABLE(ITH,  12)]  . After 
convergence,  IB  [ TABLE  (IT  H,  13)]  is  computed  at  the  converged  pressure 
PRS  and  a new  enthalpy  ENTB  by  HEAT2  before  Statement  2004,  If  the 
problem  fails  to  converge  for  the  normal  shock  (test  of  2000)  IG00F  is  set 
to  1 and  control  passed  to  the  math  program  for  the  next  case.  If  no  con- 
vergence is  obtained  for  other  values  of  0^,  a transfer  is  made  to  Statement 
1004  which  sets  the  tabular  value  of  THW  [TABLE (ITH,  1)]  = 0,  and  the  in- 
crements of  the  computation  HNT.  At  the  conclusion  of  the  calculation  sub- 
routine PHIL  is  called  if  HNT  > 0.  This  subroutine  searches  for  values  of 
THW  which  are  zero  and  if  there  are  any  provides  linear  interpolation  for 
the  12  shock  property  columns  with  d ^ as  the  independent  variable.  The 
output  for  each  iteration  (XPE>1)  for  every  converged  iteration  (XPL>1)  is 
provided  by  the  tests  between  1022  and  1024  and  the  Statements  between  1009 
and  1016. 
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If  the  body  radiation  intensity  drops  below  the  input  INST0P,  a transfer 
is  made  out  of  the  loop  to  Statement  1024.  D0  loop  1028  provides  an  inter- 
polation between  the  ambient  y(GAMA)  and  the  last  yw  (GAMW)  computed 
by  the  iterative  procedure,  using  THW  as  the  independent  variable.  All 
shock  properties,  except  IW  (which  is  set  to  0)  and  IB  (which  is  still  com- 
puted until  it  also  falls  below  INST0P,  then  set  to  zero  for  smaller  6^)  are 
then  expressed  m terms  of  the  interpolated  value  of  y (GAMI),  the  and 
the  ambient  conditions. 

2.  PHIL 

Purpose:  To  interpolate  values  of  the  shock  properties  using  6^  as  the  in- 
dependent variable. 

Method:  Where  TABLE(ITH,  1)  are  zero  the  solution  was  not  found  by  itera- 
tion, the  TABLE(ITH,  2-13)  are  linearly  interpolated  between  successive 
successful  iteration.  If  successive  successful  values  are  not  found  m 
TABLE(ITH,  1),  IG00F  is  set  to  1 and  control  is  returned  to  DBLIK,  then 
the  math  program  for  the  next  case. 

3.  HEAT  2 

Purpose:  Described  in  Section  1883. 

Method:  Same  as  1883,  but  the  detachment  distance  is  now  computed  and 
is  always  set  = 0.  1 by  DBLIK. 

All  other  subroutines  are  the  same  as  1883. 
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D.  1885  B SUBROUTINES 
CALLING  SEQUENCE 


LEE 

Variable 

Input  or  Output 
Sources 

KKL,  Section  iden- 
tification array 

Output 

LEE 

XIL,  X0  array 
corres  to  Xb 

Output 
I EE 

Y1L,  Y0  array 
corres  to  Yb 

Output 

LEE 

XBL,  Xb  array 

Output 

LEE 

YBL,  Yb  arra-j 

SSL,  Sb  array 

THETBL, 

ISTAG.No  of  stag 

IGOOF,  If  = 0, 

XI 

array 

pt  in  XL  array 

calculation  o k 

stag  pt 

Output 

Output 

Output 

Input 

Output 

Input 

LEE 

LEE 

LEE 

STAGPT 

LEE 

LEE 

Y1 

SI 

DTDSI, 

THETA 

Ml 

INO,  number  of 

stag  pt 

stag  pt 

stag  pt 

stag  pt 

stag  pt 

entries  in  XIL 

Input 

Input 

Input 

Input 

Input 

Output 

STAGPT 

STAGPT 

STAGPT 

STAGPT 

STAGPT 

LEE 

ALPH  current 

IS0NL,  number  at 

THEBST,  sonic 

DTDSL 

sonic  pt  m XIL 

point 

array 

Input 

Output 

Input 

Output 

Program  Input 

LEE 

MAIN 

LEE 

Variable 

X,  Xb  array 

Y,  Yb  array 

S,  Sjj  array 

DTDS,  de^dSt, 

PREP 

Input  or  Output 

Input 

Input 

Input 

Input 

Source 

WIND  or  LEE 

WIND  or  LEE 

WIND  or  LEE 

WIND  or  LEE 

THETS,  6h  array 

ISONQ,  number  of 

PRE,  array  of 

THEBSQ,  some 

RS0RAQ,  PJpA 

PWSQ,  Ps 

some  pt,  in  tabic 

Pe/Ps 

Bb 

Input 

Input 

Output 

Input 

Input 

WIND  or  LEE 

WIND  or  LEE 

PREP 

MAIN 

Prog  Input  or 

Prog  Input  or 

1885A 

183EA 

V,  velocity 

RHOA,  pA 

IPTSQ,  number  of 

GAMS  y5 

RC,  Rc 

JFLOW,  j flow 

points  in  X array 

sentinal 

Input 

Input 

Input 

Input 

Input 

Input 

Prog  Input  or 

Prog  Input  or 

WIND  or  LEE 

Prog  Input  or 

Prog  Input 

Prog  Input 

188  5 A 

1885A 

1885A 

KKW,  body  identi- 

DSY,  As 

RWY, 

RSA  p,/p,  array 

RARST,  p,/ps 

XSYST,  X*/Y* 

fication  array 

array  y*_0 

array 

with  DSY,  RWY 

array  with  XSYST 

array  for  DUTB 

S.  DUTB 

Input 

Input 

Input 

Input 

Input 

Input 

WIND  or  LEE 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

DUTB*  -T-  S 

GMTB,  y array 

PMPSTB,  PMPSTB 

XNT,  v array  for 

XNTI,  Pe/Ps  array. 

XNT2  Pe/Ps 

array 

with  PMPSTB 

array  with  GMTB 

Prandtl-Meyer 

XNGM(I),  Prandtl- 

XNGM(2),  Prandtl- 

Meyer 

Meyer 

Input 

Input 

Input 

Input 

Input 

Input 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

XNT3,  Pe/Ps  array, 

XNT4,  Pe/Ps  array 

XNGM,  v array  for 

DP0DS  (dPe/Ps)ds 

PA,  PA 

DUDSSS,  du/ds 

XNGM(3),  Prandtl- 

XNGM(r),  Prandtl- 

use  in  Prandtl- 

array  ds 

at  stag  pt 

Meyer 

Meyer 

Meyer 

Input 

Input 

Input 

Output 

Input 

Output 

Prog  Input  or 

MAIN 

MAIN 

MAIN 

PREP 

1885A 

PREP 

XIW,  non-trans 

UP2,  upper  (limit  to 

3N2,  lower  limit  to 

IGOOF,  if<0 

Xi  geometry  array 

d(Pe/Ps)/dx  inte- 

d(Pe/Fs)/dx inte- 

computation satis- 

gration 

gration 

factory 

Input 

Input 

Input 

Output 

Prog  Input  or 

Prog  Input  or 

SubllO 

MAIN 

MAIN 

PREP 
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Variable 

PREW,  pe/ps 

XMULPS,  factor  = 

RHOBS,  Pbs 

TB,  Tb 

array 

Ps/PT 

QC0NV 

Input  or  Output 

Input 

Input 

Input 

Input 

Program 

Source 

PREP 

MAIN 

MAIN 

XMAMB,  mean 

RHOT,  pt 

GAME,  ye 

XMUBB  ^ 

YBW,  YBaicray 

VISC,  Viscocity 

molecular  weight 

table  (with  TMPVS) 

Input 

Program  Input  or 

Input 

Input 

Input 

mpu, 

Input 

1885A 

MAIN 

MAIN 

MAIN 

WIND  or  LEE 

MAIN 

TMPVS,  temp 

HAMB,  enthalpy 

TT,  Ty 

DPDSW,  d(Pe/Ps)/ 

QLW,  Qjj  array 

QTW,  qt  array 

table  (with  vise) 

H 

ds  array 

Input 

Input 

Input 

Input 

Output 

Output 

Program  Input 

Program  Input 

MAIN 

or  1885A 

or  1885A 

PREP 

QCQ5NV 

QCQNV 

IN0W,  number  of 

REW,  REY  array 

JFLOW,  flow 

QLSAO,(QLSya  ^ 

QLSW,  QL'nor- 

PWS,  Ps 

entries  th  XBW 

malizing  factor 

normalization 

Input 

Output 

Input 

Input 

Input 

Input 

Program 

Program  Input 

WIND  or  LEE 

QCGJNV 

Input 

MAIN 

MAIN 

or  1885A 

SBW,  Sb  array 

ISONW,  number  of 

DUDSW,  du/ds 

SIGMA,  input  PN, 

QTSTAO,  (QTS) 

RYNORM,  REY 

some  pt  th  XBW 

windward  or  lee- 

Frandtl Number 

a = 0 normali- 

normalization 

ward 

zation 

Input 

Input 

Input 

Input 

Input 

Input 

Program 

WIND  or  LEE 

WIND  or  LEE 

PREP 

Input 

MAIN 

MAIN 

DTDSW, 

WIND  or  LEE 

Variable 

IN0W,  number  of 

QRAD,  or  array 

ORADNM,  normal- 

entries  in  QRAD 

ization  factor 

Input  or  Output 

Input 

Input-Output 

Input 

Source 

WIND  or  LEE 

GETQRS  & DXSIDT 

QRNMAD 

MAIN 

INOW,  number  of 

Variable 

Xb's  in  array 

QRAD,  QR  array 

STAND,  array 

Input  or  Output 

Input 

Output 

Output 

Source 

WIND  or  LEE 

QRCLER 

QRCLER 
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gettgJt 

Variable 
Input  or  Output 
Source 

ROD,  2nd  dep 
variable 

ROTB,  2nd  dep 
variable  arrav 

TTD,  3rd  dep 
variable 


TTB,  Indep 

PD,  1st  dep. 

PTB,  1st  dep 

Variable  array 

variable 

variable  array 

Input 

Output 

Input 

Calling 

Calling 

Program 

GETTQST 

Program 

TTAB,  3rd  dep 

GAD,  4th  dep. 

GATB,  4th  dep. 

variable  arrav 

variable 

variable  arrav 

Source 

ADAMS4 

| ADAMS  4 

| ADAMS  4 

| DERQ5 

PAR 

Input 

Dummy  variable 

NPAR 

Dummy  variable 

Variable 

RASD0Y 

EPD0Y 

D<2Y 

TMPVS 

TABLES 

Input  or  Output 

Output 

Output 

Output 

Output 

Source 

TABLES 

TABLES 

TABLES 

TABLES 

vise 

DSY 

RWY 

RSA 

DUTB 

RARST 

Output 

Output 

Output 

Output 

Output 

Output 

TABLES 

TABLES 

TABLES 

TABLES 

TABLES 

TABLES 

XSYST 

GMTB 

PMPSTB 

XNGM 

XNT 

XNTI 

Output 

Output 

Output 

Output 

Output 

Output 

TABLES 

TABLES 

TABLES 

TABLES 

TABLES 

TABLES 

XNT2 

XNT3 

XNT4 

Output 

Output 

Output 

TABLES 

TABLES 

TABLES 

Variable 

KKW,  Section 
identification 
array 

XIW,  Xc  array, 
corres  to  X], 

XIW,  array 

corres.  to 

XBW,  Xb  array 

Input  or  Output 

Output 

Output 

Output 

Output 

WIND 

Source 

WIND 

WIND 

WIND 

WIND 

YBW,  Yjj  array 

SBW,  array 

THETBW, 

ISTAG,  No  Of 
stag  pt  in  Xj^ 
etc 

IGGJ0F,  If  = 0 
calculation  O K 

XI 

stag  pt 

Output 

Output 

Output 

Input 

Output 

Input 

WIND 

WIND 

WIND 

STAGPT 

WIND 

STAGPT 

Y1 

stag  pt 

SI 

stag  pt 

DTDS1 
stag  pt 

THETA1 
plus  stag  pt 

Ml  = 0 sections, 
plus  stag,  pt 

IN(5,  number  of 
entries  m XIW 

Input 

Input 

Input 

Input 

Input 

Output 

STAGPT 

STAGPT 

.STAGPT 

STAGPT 

STAGPT 

WIND 

ALPH  1 current 
Input 

ISQiNW,  number  at 
sonic  pt  th  XIw 

Output 

THEBST,  sonic 

DTDSW, 

array 

1 Output 

Program 

Input 

WIND 

MAIN 

j WIND 
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C/T 

W 


C£> 


A 


GETNU 


AC  OSH 


Variable 

XNT,  dependent 
variable  array 

— 
XNT1,  independent 
variable  array 

XNU,  dependent 
variable 

POPT,  independent 
variable 

Input  or  Output 

Input 

Input 

Output 

Input 

SOURCE 

PREP 

PREP 

GETNU 

PREP 

Variable 

ARG,  argument 

ANS,  cosh" ^(ARG) 

IGOOF,  if  > 0, 

of  cosh--*- 

calculation  O.  K. 

Input  or  Output 

Input 

Output 

Output 

SOURCE 

Calling  Program 

ACfDSH 

AC  OSH 

The  subroutine  SUB110  receives  all  input  and  provides  all  output  through 
COMMON  DATA.  In  addition  to  their  calling  sequences,  the  following  sub- 
routines use  COMMON  for  some  input  and  output;  GETTWG,  PREP,  WIND, 
LEE,  STAGPT,  DXSIDT,  and  DEREQB. 

Subroutine  UN08  has  no  calling  sequence. 

The  calling  sequences  for  the  general  purpose  routines  ADAMS4  and  ARTLU 
are  explained  in  the  section  on  special  routines. 


Variable 

XIW,  Xo  corres 
to  Xjj  array 

XIW,  Y0  corres 
to  Xb  array 

XBW,  Xb  array 

YBW,  Yb  array 

FINDRW 

Input  or  Output 

Input 

Input 

Input 

Input 

Source 

WIND  or  LEE 

WIND  or  LEE 

WIND  or  LEE 

WIND  or  LEE 

SBW,  Sb  array 

THETBW,  array 

DTDSW, 

KKW,  Section  I.  D 

IS0NW,  Index  of 
sonic  pt  MXb 

JN0W,  number  of 
entries  MXb 

Input 

Input 

Input 

Input 

Input 

Input 

WIND  or  LEE 

WIND  or  LEE 

WIND  or  LEE 

WIND  or  LEE 

WIND  or  LEE 

WIND  or  LEE 

RSORA, 

DOY,  2D  array  of 

RASDOY, 
array  for  DOY 

IG0OF,  if<0, 
calculation  o k 

IFLOW,  flow 
sentinel 

INDDUM,  index  of 
Yt  m YWB 

Input 

Input 

Input 

Output 

Input 

Input 

Prog  Input  or 
1885A 

MAIN 

MAIN 

FINDRW 

Prog  Input 

GETDS 

DELS, 

THW,  1st  col  of 
table 

RU0RV,  column  3 
of  table 

THWL,  column  4 
of  table 

XNNX,  NN  used  to 
compute 

PREW, 

Input 

Input 

Input 

Input 

Input 

Input 

GETDS 

Prog  Input  or 
1885A 

Prog  Input  or 
188SA 

Prog  Input  or 
1885A 

Prog  Input 

PREP 

HAMB,  enthalpy 

GAMS, 

V,  velocity 

THETAW,  at 

YX 

RW,  R^,  radius 
of  bow  wave 

XSI2,  at 

yt 

Input 

Input 

Input 

Output 

Output 

Output 

Prog  Input  or 
1885A 

Prog  Input  or 
1885A 

Prog  Input  or 
1885A 

FINDRW 

FINDRW 

FINDRW 

TDUMI,  cornimm 
5 of  TABLE 

TDUM2,  column 
6 Of  TABLE 

BSHOCK,  BgSHOCK 
Parameter 

THWLIM 

Smallest 

Prog  Input  or 
1885A 

Prog  Input  or 
1885A 

Output 

FINDRW 

Input 

MAIN 
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Variable 

PRE,  array 

Y,  Yb  array 

GAMS, 

RC,  R« 

GETB 

Input  or  Output 

Input 

Input 

Input 

Input 

Source 

PREP 

WIND  or  LEE 

Prog  Input  or 

Program 

1885A 

Input 

MS,  number  of  sec- 

MB  2EL,  number  of 

I,  index  of  pt  in 

JJJJ,  flow  index 

BB,  B]  or  B2  for 

M,  array  of  sec- 

tion  on  which  X falls 

section  of  end  of  Bj 
B2  integration 

Y considered 

(JFLOW) 

d{Fe/Ps>/<J* 

tion  L I> 

Input 

Output 

Input 

Program 

Output 

Input 

PREP 

GETB 

PREP 

Input 

PREP 

WIND  or  LEE 

THET,  array 

ISTOP,  index  of  last 
pt  in  integration  of 

Input 

Output 

WIND  or  LEE 

PREP 

Variable 

XTW,  Xq  cor  res 

YIW,  Y0  array 

XBW,  Xb  array 

YBW,  Yb  array 

to  XBW 

cor  re  3 to  YBW 

GETDS 

Input  or  Output 

Input 

Input 

Input 

Input 

Sources 

WIND  or  LEE 

WIND  or  LEE 

WIND  or  LEE 

WIND  or  LEE 

SBW,  Sj,  array 

THETBW, 

KKW,  Section  I D 

ISONW,  number  of 

INOW,  number  of 

ALFHAI, 

array 

array 

sonic  pt.  in  XBW 

entries  in  XBW 

Input 

Input 

Input 

Input 

Input 

Input 

1VIND  or  LEE 

"WIND  or  LEE 

WIND  or  LEE 

WIND  or  LEE 

WIND  or  LEE 

Program  Input 

RSORA, 

BN,  rn 

JFLOW,  flow 

DOY,  2D  array  of 

RASDOY, 

EPDOY,  array 

sential 

array  for  DOY 

for  DOY 

Input 

Input 

Input 

Input 

Input 

Input 

Prog  Input  or 

Program 

Program 

1885A 

Input 

Inpnt 

MAIN 

MAIN 

MAIN 

IGOOF,  ifiO, 

DTDSW 

DELS,  , stag 

INDDUM,  index  of 

calculation  0 k 

array 

pt  detachment 

(Output 

Input 

Output 

Output 

GETDS 

WIND  or  LEE 

GETDS 

GETDS 
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Variable 

XNT,  independant 

XNT1,  dependent 

XNU,  independent 

PRES,  dependent 

variable  table 

variable  table 

variable 

variable 

Input  or  Output 

Input 

Input 

Input 

Input 

Source 

PREP 

PREP 

PREP 

GETPRE 

Variable 

XBW,  Xb  array 

YBW,  Yjj  array 

THETBW, 

RW,  Rw  at  Yt 

GETQRS 

Input  or  Output 

Input 

Input 

Input 

Input 

Source 

WIND  or  LEE 

WIND  or  LEE 

WIND  or  LEE 

FINDRW 

DELS,  from 

stag  pt 

B SHOCK,  Bs 
short;  shape 
parameter 

ORAD,  QR  array 

STAND,  array 

THW  Ow  array 

TIW  lyj  array 

PREW  Pe/Ps 

Input 

Input 

Output 

Output 

Input 

Input 

Input 

GETDS 

Program  Input  or 
FINDRW 

GETQRS 

GETQRS 

Program  Input 
or  1885A 

Program  Input 
or  1885A 

PREP 

TPR  Pw/P0  array 

TIB  I3  array 

XMMX,  MM  to 
compute  QR 

TRW  array 

PWS,  Fs 
Input  Program 

INOW,  No  of 
points  an  XBW  array 

RC,  Rq  radius 

Input 

Input 

Input 

Input 

Input 

Input 

Input 

Program  Input 
or  1885A 

Program  Input 
or  188SA 

Program  Input 

Program  Input 
or  I885A 

Program  Input 
or  188SA 

WIND  or  LEE 

Program  Input 

THWL1M, 

0 

wLIMIT 

smallest  value 
of  0V 

MAIN 
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1885B  SUBROUTINE  DESCRIPTIONS 
1.  PREP 

Purpose'  To  compute  the  pressure  distribution  and  velocity  gradient 
for  the  body. 

Method'  The  pressure  distribution  is  divided  into  two  parts,  one  the  area 
between  stagnation  point  and  sonic  point,  and  two  the  area  aft  of  the  sonic 
point. 

If  there  is  no  straight  section  before  the  sonic  point,  (see  tests  near 
Statement  1000),  and  if  the  ratio  X/Y  sonic  point  > (1-sin  ( dy  ))/cos  ( dy  ), 
then  the  forward  pressure  distribution  is  assumed  Newtonian  (D0  L,&0 P 
1003).  The  velocity  gradient  is  computed  with  JG0  = 1 by  the  correlation 
using  the  input  tables  DUTB,  XSYST,  and  RARST.  (Statements  1008  to 
1021). 

1 - sin^* ) 

If  there  is  no  straignt  section,  but  X/Y  sonic  point  < w — , then 

cos  dy 

the  above  velocity  gradient  is  computed  (1008  to  1021),  but  with  JG0  ~ 2, 
which  then  uses  du/ds  to  compute  a polynomial  distribution  (Statements 
1024  to  1026). 

If  a straight  section  exists  before  the  sonic  point,  then  a polynomial  pres- 
sure distribution  is  computed, 

if  — = 0 at  stagnation  point;  then  du/ds  is  computed  by  the  correlation  at 
d S 

Statement  1007.  Otherwise  du/ds  is  computed  as  above. 

After  the  distribution  to  the  sonic  point  is  computed  (by  Statement  1027) 
the  DQ$  1067  loop  beginning  after  Statement  2008  computes  all  the  follow- 
ing pressures.  First,  however,  a table  lookup  is  done  to  compute  the 
pressure  ration  PMC^PS  , a function  of  yg.  Statements  2000  to  2008  es- 
tablish indexes  used  with  the  Prandtl-  Meyer  calculation.  After  the 
D£)1067  the  Statements  3002  to  2013  are  used  to  assure  that  the  first  pres- 
sure computed  on  Section  5 or  a flatbased  section  10  is  done  by  Prandtl- 
Meyer.  If  the  dd/ds  > 0,  for  the  current  point,  the  pressure  is  computed 
by  the  Newtonian  approximation  (1028).  If  dd/ds  =0,  0 < 0,  the  pressure 
is  constant  (1031).  If  dd/ds  = 0,  0>O,  then  a test  is  made  (1032).  If  the 
previous  pressure  was  < PM0PS  , the  Entropy-Layer  formulation  is  used 
(Statements  1033  to  3008).  This  involves  the  use  of  the  ADAMS4  integra- 
tion system  to  integrate  the  differential  equation  d(Pe/Ps)/dx.  This 
derivative  involves  a constant  BB,  which  itself  is  an  integral  from  the 
stagnation  point  to  the  beginning  of  the  straight  section.  Subroutine  GETB 
computes  this  constant,  and  the  quantity  MB2EL  assures  that  it  is  com- 
puted only  once  per  straight  section. 

If  dd/ds  = 0,  and  the  previous  pressure  was  > PM(#PS  at  Statement  1032, 
then  constant  pressure  is  assumed  (Statement  1031). 
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If  dd/ds  < 0,  a test  is  made  at  Statement  1040.  If  the  previous  pressure  > 
PM0PS,  Newtonian  is  assumed  (1028),  Otherwise,  Prandtl-Meyer  is 
assumed  (Statements  1041  to  1064). 

As  each  pressure  PRE^  is  computed,  so  is  its  derivative  DPODSj..  If  the 
pressure  ever  becomes  less  then  Pa/PS  (PAOPS),  then  the  pressure  is 
held  constant  at  PAOPS  (loop  1005)  for  the  rest  of  the  body. 

2.  QRCLER 

Purpose:  To  set  each  entry  of  the  arrays  QRAD  and  STAND  to  zero  before 
the  calculation  QRX  and  XSI1  are  initiated. 

Method:  DO  LOOP  1000, 

3.  QCQNV 

Purpose:  To  compute  the  heating  quantities  QLj,  QTX  f and  REY1  for  each 
point  on  the  body. 

Method:  The  distributions  QLj , QTX , and  REYj  are  computed  by  the  DO  LOOP 
1011.  Between  entry  and  the  DO  1011,  all  constants  independent  of  the  body 
are  computed.  The  QLj  computed  uses  the  term  BETA  (1004,  1003),  involv- 
ing the  trapezoidal  integration  of  the  function  pb  ue  yt24  , and  £ (not  related 
to  the  shock  £).  When  the  surface  distance  $b  < 0.  2 Sb  sonjtc  , a limiting 
form  of  £ and  BETA  is  provided  (Statements  ^000  to  1001).  If  Sbj  > 0,  2 
sb,  sonic  > then  the  i and  BETA  are  computed  between  1001  and  1004,  where 
the  trapezoidal  integration  also  is  done.  The  QLj,  QT^  , and  REY^  are  com- 
puted between  Statements  1002  and  1011. 

4.  GETTQT 

Purpose:  To  perform  table  look-up  using  columns  of  the  table  of  normal 
and  oblique  shock  properties  TABLE 

Method:  It  was  necessary  to  write  GET  TOT  because  two  columns  of  inde- 
pendent variables  on  TABLE,  Qy  (column  1)  and  PW/PO  (column  7)  are 
monotonically  decreasing  and  thus  not  suitable  for  ART LU,  The  maximum 
number  of  dependent  variables  is  4,  when  the  subroutine  is  called  by  the 
MAIN  program  to  compute  1 'total1  * conditions.  When  it  is  called  with  fewer 
dependent  variables  of  interest  (e.  g.  by  FINDRW,  GETQRS),  dummy  vari- 
ables are  included. 
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5.  WIND 


Purpose:  To  compute  the  transformed  body  coordinates  for  the  wind  ward 
side  at  angle  of  attack,  and  include  in  these  tables  the  coordinates  of  the 
sonic  point. 

Method:  The  D0  L0Q5P  1012  first  transforms  the  zero  angle-of-attack  co- 
ordinates by  using  the  input  values  of  a (ALPHI),  and  the  XBRAL  and  YBRAL 
included  in  the  zero  angle-of-attack  tables  by  STAGPT  as  the  alpha  = 0 co- 
ordinates of  the  stagnation  point  of  the  body  at  the  current  a.  The  differ- 
ence in  definition  of  xb,  yb  , 0b  done  at  the  Statement  1002  reflects  the  fact 
that  the  windward  side  must  go  around  the  a = 0 rearward  point  and  back  up 
the  other  (a  = 0)  side.  The  table  is  considered  complete  whenever  j0b|  >90 
(Statement  1010),  or  yb  passes  through  zero  (1006).  The  statements  be- 
tween 1014  and  1029  compute  the  co-ordinate  of  the  sonic  point  ( 0b  = 6^  *). 

If  the  sonic  point  falls  on  a straight  section,  it  is  defined  to  be  the  start  of 
that  section  (1023).  Otherwise  an  interpolation  is  done  using  d0/ds  of  the 
section  containing  the  sonic  point  (DO  LOOP  1020),  and  the  sonic  point  co- 
ordinates are  computed  at  Statement  1026.  The  DO  LOOP  1027  rearranges 
the  , yb  , etc,  , tables  so  that  the  sonic  point  co-ordinates  fall  m their 
proper  sequence,  with  index  = ISONW.  Proper  sequence  is  determined  by 
the  fact  that  the  SBW  table  must  be  monotonically  increasing. 

6.  LEE 

Purpose:  Same  as  WIND  above,  but  for  leeward  side. 

Method:  Same  as  WIND  above,  except  for  co-ordinate  definitions  at 
Statements  1002  to  1005. 

7.  GET  PS 

Purpose:  To  compute  the  detachment  distance  of  the  bow  wave  normal  to 
the  body  at  the  stagnation  point. 

Method:  GETDS  computes  Hie  detachment  As  by  choosing  among  several 
correlations  involving  the  density  ratio  pjjps  and  body  geometry. 

If  there  are  no  straight  sections  between  the  stagnation  point  and  the  sonic 
point,  and  JFLOW  = 0,  then  the  As  is  computed  from  a simple  algebraic 
evaluation  involving  cosh“l  (between  Statements  1001  to  1008).  For  the 
purposes  of  cosh”^  only,  if  the  inverse  of  the  argument  is  > 1,  it  is  set 
to  a limit  3/ 3.  1. 
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If  there  were  no  straight  sections  and  JFL0W  > 0,  then  the  As  is  computed 
from  a correlation  involving  the  tables  RASDQ$Y,  EPD$Y,  and  DQ5Y.  The 
table  DQ5Y  is  ^S/YT  =f(e,  pA/pg),  YT  here  is  defined  as  yb*at  the  sonic 
point,  p&/ps  - RAQ)  RS,  and  e = EPSLT  = xb*/yb*  at  the  sonic  point. 

If  there  is  a straight  section  before  the  sonic  point,  and  JFL0W  <0,  the 
AS  is  computed  from  the  function  using  cosh~l,  but  with  the  (DTDSMP)  re- 
defined between  Statements  1020  and  1026.  If  JFL(#W  > 0 and  *b*  >.  Aso  , 
then  the  correlation  from  tables  D$Y,  EPD<$Y,  and  RASDQ&Y  is  performed 
with  Yt  and  e = EPSLT  redefined  between  Statements  1028  and  1032.  If 
.JFLQJW  > 0 and  xb*  < Aso  , DELS  = \0-xb*  at  Statement  1037. 

The  index  INDDUM  is  either  the  index  of  the  sonic  point  or  the  beginning 
of  a straight  section,  depending  on  which  point  was  used  to  determine  YT. 

8.  GETQRS 

Purpose:  To  compute  the  radiation  QUAD  and  normal  detachment  distance 
STAND  along  the  meridion. 

Method:  The  detachment  distance  STAND-j.  and  QRADi  are  computed  m D0 
L0$P  1010  by  solving  a quadratic  which  is  a function  of  RW,  the  body  co- 
ordinates and  the  shock  parameter  BSHOCK,  between  the  DQ)  1010  and 
Statement  1033.  Given  the  distance  and  the  pressure  distribution,  sub- 
routine GET  TOT  is  used  to  look  up  the  intensities,  first  from  the  wave 
angle  THWW  and  then  from  the  local  pressure  PARG.  Three  dummies 
are  used  m each  table,  look  up  (see  GETTQ5T).  The  QRADX  is  computed 
prior  to  1010. 

9.  STAGPT 


Purpose:  To  locate  in  the  zero  angle -of- attack  co-ordinates  the  co-ordinates 
of  the  new  stagnation  point  at  a 0,  and  place  this  point  m the  tables. 

Method:  In  the  IF  L0<$1?  between  1030  and  1029,  the  program  finds  all 
points  for  which  the  local  body  angle  6^  + a = 90.  It  does  this  by  seeking 
a change  of  sign  m the  residual.  If  the  point  is  not  identical  to  a point  m 
the  a ” 0 tables,  d0/ds  is  computed  and  the  co-ordinates  are  interpolated 
(1022  to  1025).  If  the  point  is  identical  to  a point  in  the  a = 0 table,  this 
fact  is  noted  (1026).  If  the  point  falls  on  a straight  section,  the  new  stag- 
nation point  is  arbitrarily  defined  to  be  at  the  middle  cf  the  straight  section 
(1003  to  1007). 
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For  each  candidate  for  the  stagnation  point,  the  quantity  XBRAL  is  com- 
puted (1027).  The  point  which  maximizes  this  quantity  is  defined  to  be  the 
stagnation  point  (1028  to  1029).  The  statements  between  1033  and  1040  are 
used  to  define  the  arrays  XI,  Yl,  etc.,  which  contain  the  a=  0 co-ordinates 
(X0,  YO,  etc.  ) plus  the  stagnation  point,  whose  index  m XI,  etc.  is  ISTAG. 

It  is  placed  in  the  co-ordinate  tables  in  such  fashion  that  SI  is  monotonically 
increasing. 

10.  GETB 

Purpose:  To  compute  the  constants  B1  or  B2  used  m computing  the  pressures 
by  integrating  the  differential  equation  d(P£/Ps)/dx 

Method:  GETB  computes  BB  which  involves  an  integral  of  the  pressures 
and  geometry  between  the  stagnation  point  and  the  beginning  of  the  straight 
section  on  which  the  l^  (current)  point  lies.  Since  the  integral  is  only  to 
the  start  of  the  section,  IST0P,  the  index  of  the  starting  point  in  the  xb  table, 
and  MB2EL,  the  identification  number  of  the  straight  section  are  computed 
in  the  DO  1003  loop.  These  quantities  are  used  to  guarantee  that  the  cal- 
culation is  done  once  for  each  straight  section  on  which  the  entropy  layer 
equations  are  used,  and  not  once  for  each  output  point  on  the  section.  The 
integration  is  done  trapezoidally  ifi  DQ$  L0OP  1008.  The  integrand  depends 
on  JJJJ,  which  is  the  flow  index  JFLOW.  The  argument  BB  in  the  calling 
sequence  is  the  value  of  either  B1  or  B2,  whichever  is  appropriate. 

11.  QRNMAP 

Purpose:  To  normalize  the  array  QRAD  by  QRADNM. 

Method:  If  QRADNM  is  > 0,  each  entry  in  QRAD  is  divided  by  it  in  DQ$ 

LOOP  1002. 

12.  GETPRE 

Purpose:  Given  a value  of  v (XNU)  and  a v table  (XNT),  to  compute  a 
corresponding  Pressure  (PRES)  from  the  table  XNT1. 

Method:  Linear  interpolation  in  D0  LQC^P  1002  and  Statement  1003. 

13.  FINDRW 

Purpose:  To  compute  the  bow  wave  radius  RW,  and  the  parameter  BSHOCK 
by  computing  the  detachment  distance  and  wave  angle  (XSI2  and  THE  TAW) 
at  the  body  point  whose  index  is  INDDUM,  and  at  the  first  point  where  0W  < 0. 
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Method:  FINDRW  computes  the  shock- shape  parameters  RW  and  BSHOCK 
by  computing  the  shock  angle  and  detachment  distance  at  two  points  on  the 
body,  the  first  (IC<?MP  = 0)  defined  as  the  point  on  the  geometry  tables 
with  index  INDDUM,  and  the  second  (ICQ5MP  = 1)  being  the  most  forward 
point  with  6 k < 0.  The  point  indexed  by  INDDUM  is  either  the  sonic  point 
or  the  start  of  a straight  section  if  it  occurs  ahead  of  the  sonic  point  and  if 
x^*  > DELTST  as  defined  by  Statement  1003. 

The  method  of  iteration  is  to  compute  for  a point  on  the  body  and  a value 
of  0W  (initially  set  to  ) two  values  of  detachment  distance  XSI1  and  XSI2. 
When  ICCJ5MP  =:  0,  XSI1  is  obtained  from  Statement  1071,  and  when  IC(?MP 
> 0 from  the  (largest)  positive  root  of  a quadratic  (Statements  1044  to  1047). 
XSI2  is  always  obtained  from  the  (largest)  positive  root  of  the  quadratic 
computed  between  1052  and  1057.  If  the  relative  difference  between  XSI1 
and  XSI2  is  < 10"^,  the  computation  has  converged  (after  1022).  If  it  has 
not  converged,  then  the  value  of  THET  = 0W  is  modified  until  a change  of 
sign  in  the  residual  indicates  a near  root  (Statement  1026).  At  this  time 
the  A0W  is  decreased  and  the  successive  approximations  continued.  If  a 
successive  redidual  is  larger  in  absolute  value  than  the  former  value 
(divergence)  the  sign  of  A0W  is  changed  (1029).  If  this  happens  twice,  then 
the  residual  has  passed  through  a minimum  without  finding  a root,  and 
transfer  is  made  to  Statement  1041  which  sets  IG00F  = 1 and  prints  the 
message  CANNQiT  FIND  THETA  F0R  RW  0R  B,  SKIP  CASE.  Control  then 
is  passed  to  the  mam  program.  If  no  solution  is  found  in  600  iterations, 
IG<?(?F  is  set  to  1 and  the  return  is  executed  (1034  et.  seq.  ).  After  the 
first  pass  (IC(?MP  = 0)  RW  is  computed  and  the  reference  geometry  is 
changed  to  the  most  forward  point  at  which  6^  < 0 (Statements  1038  to  1070). 
After  the  second  pass  (IC(?MP  = 1),  the  shock  shape  parameter  BSH(?CK  is 
computed  (1070)  and  a normal  RETURN  is  executed. 

14.  GETNU 

Purpose:  Given  a value  of  pressure  P(?PT  and  a pressure  table  XNTI,  to 
compute  a corresponding  v from  the  table  XNT. 

Method:  Linear  interpolation  in  DC?  U0 (?P  1002  and  statement  1003. 

15.  ACC?SH 

Purpose:  To  compute  cosh-1  (ARG). 

Method:  Expansion  m DC?  1X?(?P  1000  for  ARG  > 1. 
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16.  DERQ5 


Purpose:  To  compute  the  derivatives  d(Pe/Ps)/dx  or  df/dS^  . 

Method:  d(P  /P  )/dx  is  computed  between  1002  and  1008  by  using  the 
current  values  of  Pe/Pg  (PRS),  X (XIND),  and  data  in  C($MMQ5N  storage 
computed  by  PREP,  DERQ5  is  called  by  the  predictor- corrector  routine 
ADAMS  4, 

17,  SUB  1 10 

Purpose:  To  compute  a = 0 coordinates 

Method:  SUB110  computes  a = 0 body  data  m the  large  DQ5  L0Q5P  20.  For 
each  of  10  segments,  the  input  array  N (XN)  contains  a number.  For  each 
of  the  segments  but  3 and  10  this  should  be  of  the  form  X where  X is  an 
integer  giving  the  number  of  increments  m the  section.  For  the  third 
section  X.  1 is  a cone,  X.  2 is  a tension  shell,  and  X.  3 is  a general  shape 
(statement  50),  X still  being  the  number  of  increments.  For  Section  10 
X.  1 is  an  aft  sphere,  and  X,  2 is  a flat  base  (statement  120).  The  index 
J1  counts  the  points,  and  the  total  number  of  points  in  each  X0,  YO,  etc. 
array  is  JOMAX.  The  appropriate  equations  for  each  section  are  deter- 
mined by  the  computed  G0 TCfi  at  statement  10,  and  if  XNi  = 0,  the  sec- 
tion is  omitted.  If  the  input  sentinel  IOTBL  1,  the  co-ordinates  are 
printed  out  (statement  131). 

3.8.  ADAMS4 

Purpose:  To  numerically  integrate  differential  equations  by  a predictor  - 
cor rector  method. 

Method:  See  'the  writeup  of  ADAMS4  in  the  section  special  subroutines. 

19.  TABLES 

Purpose:  To  define  tables  used  in  the  computations. 

Method:  Each  element  of  each  table  is  set  to  the  appropriate  numerical 
value  m an  arithmetic  statement. 

20.  HDPRNI 

Purpose:  To  print  identification  material  at  the  beginning  of  each  case. 
Method:  The  appropriate  "WRITE"  and  "FORMAT"  statements  are  used. 
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21.  UNO  8 


Purpose:  To  define  logical  tape  8 as  the  binary  input-output  tape  SYSUT5. 

Method:  UNO 8 is  a MAP  subroutine  containing  the  necessary  FILE  infor- 
mation. 

E.  1885  A MAIN  PROGRAM 

Purpose:  To  acquire  input  for  the  oblique  shock  calculation  and  prepare  a 
binary  tape  of  shock  data  for  Program  1885B, 

Method:  Having  acquired  the  values  of  the  input,  control  is  passed  to  sub- 

routine OB  UK  which  performs  the  shock  calculation.  If  a binary  tape  is  to 
be  prepared  for  1885B,  the  tape  is  rewound  for  a first  case  (XFIRST  = 0, 
Statement  1001)  and  not  rewound  for  successive  cases  until  ILAST  is  input  > 0 
(Statement  1005). 

F.  1885  B MAIN  PROGRAM 

Purpose:  The  purpose  of  the  mam  program  is  to  acquire  tables  and  input 
used  by  the  calculation,  provide  output,  and  control  the  order  of  the  calcu- 
lations of  the  heating  and  pressure  distribution  at  each  angle  of  attack  for 
both  leeward  and  windward  sides. 

Method:  Common  data,  dimension  statements,  and  definition  of  the  Name- 
list  array  INPUT  occur  in  the  MAIN  program  before  input  is  acquired, 
CALL  TABLES  provides  the  constant  tables  to  be  used  by  the  program. 
Preset  variables  are  then  set,  and  the  data  read  in  through  the  Namelist 
array  INPUT.  The  CALL  SUB110  statement  provides  for  the  computation 
and  subsequent  output  of  the  zero  angle  of  attack  coordinates. 

The  statements  between  CALL  SUB110  and  1035  provide  for  oblique  and 
normal  shock  data  to  be  read  from  TAPE  38,  if  the  input  quantity  TAPE 
(XTP)  > O,  implying  that  these  data  are  to  come  from  an  1885A  calculation. 
After  Statement  1035  pertinent  gas  properties  are  defined  from  these  data 
taken  at  wave  angle  ( ) a 90  degrees. 

In  the  statements  preceding  1017,  "total  conditions",  P<j>,  p>p  Tr^,  y are 
defined  at  a 90  or  by  table  look-up  (CALL  GETT0T)  at  6 w = THE  TAT 
(THT0T),  depending  on  the  input  TT0.  Before  the  D0  10  statement 
further  gas  properties  are  defined,  as  is  the  Reynolds  number  normaliza- 
tion RYN0RM. 

The  L0Q5P  10  extends  to  the  end  of  the  MAIN  program,  and  controls  as 
a monitor  the  sequence  of  calculations  performed  for  each  angle  of  attack. 
The  first  entry  of  the  array  ALPHA  must  be  0.  The  flow  diagram  (Section 
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A above)  should  be  helpful,  as  the  entire  function  of  the  MAIN  program  in 
this  loop  to  control  the  logic.  Since  the  leeward  and  windward  sides  of  the 
vehicle  at  angle  of  attack  are  nearly  independant  of  each  other,  there  are 
virtually  no  significant  equations  in  the  loop. 

When  a = 0 or  180,  the  body  is  symmetric  and  only  one  side  need  be  com- 
puted. At  a = 0 it  is  the  windward  side,  Statements  1018  to  1000,  m which 
four  normalizing  factors  are  computed,  QLSAO  and  DITDSAO  for  QL, 
QTN0RM  for  QT,  and  QRADNM  for  QRAD,  if  the  radiation  is  to  be  com- 
puted (C0MQRD  > 0 in  the  input). 

When  a - 180,  the  same  sequence  is  performed  for  the  leeward  side, 
Statements  1023  to  1001,  using  the  previously  computed  normalization. 

When  0 < a < 180,  calculations  are  performed  in  the  proper  sequence  first 
for  the  windward  side  and  then  for  the  leeward  side,  and  all  but  the  co- 
ordinates are  computed  between  Statements  1026  and  1025.  When  both 
sides  are  computed  two  averages  must  be  found,  one  a mean  value  of  du/ds 
(DUDSD)  between  Statements  1026  and  1022,  which  assures  continuity  of 
heating  at  the  stagnation  point  (common  to  windward  and  leeward  sides), 
and  the  other  is  the  detachment  distance  (DELS)  from  the  stagnation  point, 
which  is  computed  between  Statements  4002  and  1029. 

There  are  several  co-ordinate  tables  used.  XO,  YO,  SO,  DTDSO,  THETAO, 
and  M m C0MM0N  are  the  zero  angJe- of- attack  coordinates.  The  tables 
XI,  Yl,  SI,  DTDS1,  THETA1,  and  Ml  are  these  tables  plus  one  additional 
point,  the  stagnation  point  at  the  current  value  of  a.  The  tables  XBW,  YBW, 
SBW,  THETBW,  and  KKW  are  the  body  coordinates  of  the  windward  side 
after  the  translation  and  rotation  implied  by  the  angle  of  attack,  and  the 
tables  X1W  and  Y1W  are  the  a = 0 coordinates  from  which  the  body  coor- 
dinates were  transformed.  On  the  leeward  side  the  tables  are  analagous  to 
the  above  seven,  except  the  letter  nW"  is  replaced  by  "L", 

For  each  side  of  the  body,  the  sequence  is  as  follows 

1)  Obtain  the  stagnation  point  coordinates  in  the  a = 0 reference  by 
calling  STAGPT  (Statement  1009)  if  « ^ 0,  acquiring  the  tables  XI,  Yl, 
etc. , and  the  index  of  the  stagantion  point  1ST  AG. 

2)  Obtain  the  windward  (leeward)  body  coordinates  by  transforming 
XI,  Yl,  etc.,  to  XBW  (XBL),  YBW  (YBL),  etc.,  by  calling  subroutine 
WIND  (LEE).  The  first  point  in  XBW  (XBL)  will  be  the  stagnation 
point  at  the  current  a,  and  m addition  the  coordinate  tables  include 
the  coordinates  of  the  sonic  point,  whose  index  is  IS  QiNW  (IS0NL), 

There  are  IN0W  (IN0L)  entries  in  each  of  these  tables. 
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3)  Compute  the  pressure  distribution  and  du/ds  for  the  windward 
(leeward)  side  by  calling  PREP  to  obtain  the  array  PREW  (PREL),  and 
the  quantities  DUDSW  (DUDSL). 

4)  From  this  point  the  windward  and  leeward  sides  data  are  completely 
mdepedent.  CALL  QCQ5NV  provides  for  the  computation  of  the  heating 
data  QLW,  QTW,  and  REY.  This  is  provided  as  output  for  the  wind- 
ward side,  and  when  the  leeward  calculation  is  made  the  distributions 
are  stored  m the  same  arrays. 

5)  If  C0MQRD  m input  is  < 0,  go  to  Step  10. 

6)  If  RW0,  BSHQSCT,  DELT  are  input,  SKIP  to  Step  9. 

7)  Obtain  the  detachment  distance  DELS  from  the  stagnation  point, 
which  is  provided  by  GETDS. 

8)  Obtain  the  shock  detachment  distance  XSI2  and  the  shock  angle 
THE  TAW  from  the  point  whose  index  is  INDDUI  from  the  windward 
side  and  INDDU2  from  the  Leeward  side.  This  point  is  either  the 
sonic  point  or  the  start  of  a straight  section  if  there  is  such  a section 
between  the  stagnation  point  and  the  sonic  point.  Also  obtain  the  bow 
wave  radius  RW,  and  shock  parameter  BSH0CK,  these  quantities  com- 
ing from  the  subroutine  FINDRW. 

9)  Obtain  the  radiation  heating  (QUAD)  and  detachment  distance 
(STAND),  (Windward  or  leeward).  This  is  done  by  subroutine  GETQRS. 

10)  Provide  the  pressure  and  heating  quantities  as  output  for  the  wind- 
ward and  leeward  side. 

Most  of  the  subroutines  have  as  an  argument  the  sentmal  IGQiQiF,  which  if 
>0  indicates  that  the  computation  is  unsatisfactory  and  the  next  angle  of 
attack  is  considered. 

1885A  SIGNIFICANT  EQUATIONS 

1,  Main 
None. 

2.  PHIL 
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None, 


3.  CftBLIK 


pw/ pa  = DENINV  from  iteration  of  IW  > INST0P 

= (GAMI  + 1)  + AM2  . sin2 0w/[  (GAMI  - 1)  • AM2  • sin2 0W  + 2 1 

GAMI  interpolated  when  IW  < INST0P 
pwUw/paV  = DENINV + UW0V, 

UW0V  = [cos20w  + DENR2  sin2  0W3  , DENR  = l'/DENINV 

eWL  = [sma»cos  ^a  — denr)1  | 

{ [cos2  0W  + DENR  • sin2  0W]  j 

yw  = (DENINV  + l.)/(DENINV  - 1 ) if  IW  > INST0P 
= GAMI  , interpolated  if  IW  < INST0P 


Tw  = T from  HEAT2  iteration  if  IW  > INST0P 


= HWMRTZ  * R • TO/XM  if  IW  < INST0P  , where  HWMRTZ  « 
HM0RTZ  { 1 - V2  x 0.5  [DENR2  x sin2  0W  + cos2  0J/HH  } 

HM0RTZ  and  HH  from  ambient  condition  (after  100 1). 

Pw/P0  = PRS  = RH0R  * V2  x sin2  6 w (I  - DENR)/P0  + PA/PQ 
HW/H  = ENT  * R * Tq/(XM  HH)  when  ENT=f(DENR)  if  IW  > INST0P 
= HWMRTZ  R Tq/(XM  HH)  if  IW  < INST0P 
Pws/pa  = DENINV*  (PWS0P<£/PRS)(l/GAMW) 

GAMW 
GAMW-1 

if  IW  > INST0P 


pws/Po  = PWS0P0  , see  above 

TWS  = T • HM0RT2/ENT  if  IW  > INST0P 

= T . HM0RTZ/HWM0RTZ  if  IW  < INST0p 
2 • QSUM 

IW  from  HEAT  2 = evaluated  at  P = pRS  and  H = ENT 

DEL 

= 0 if  IW  < INST0p 


IB  from  HEAT2 


2 • QSUM  , . „ 

evaluated  at  P 

DEL 


PRS  and 


_ [(GAMMA  - D/GAMMA)] 
H = ENTB  = HM0RTZ  (pRS/pWS0p0) 

PWS0P0  and  GAMMA  here  evaluated  only  at  f?w  = 90 

H.  1885B  SIGNIFICANT  EQUATIONS 

1.  MAIN 


REYA  =*  RYN0RM 


RH0A  V-2.RC 
XMUAAA 


, XMUAAA  = (i  |TA 


* THEBST  = ASIN 


GAMS 
GAMS  - 1 


QLs|  = QLSAO 
sa=0 


0 76 

SIGMA0*6 


RH0BS  * XMUBBB  1 
RH0SS  • XMUSSS  7 


HAMB 

778. 


. (DUDSAO)0*5  • [I  + (ELALPQ  - 1)  • HDHS90] 


PWS  • XMAMd 

PBS  - RH0BS  - — TB  , „B  = XMUBBB  = mItB  • 

du  I H 

fis  = XMUSSS  = /i|TW$ , _ I « DUDSAO,  HDHS90  = — 
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if  IW  > INSTOP 


STATEMENT 

NUMBERS 

1017 


1017 


(RH0SS  • XMUSSS)0  5 


1018 


ew=9o 


544' 


QT  (IS0NW)  |a_0 


2012 


QTS 


QRSla=0  = QRADNM  = QRAD(l)  la=0 


du,  1 1 

-J-  = DUDSD  = — DUDSW  + — DUDSL  , 

ds  2 2 


du  a - 90  - 0N  < 0 and 

DUDSD  = if 

ds  180  + 6 a — ci  < 0 


1 du  0.5  sin  a / 3 X1/2 

— — — + { _ ■ ) , a otherwise  than  above 


2 ds  YIW(l)  \RS0RA/ 

YIW(l)  is  a = 0 value  of  yQ  for  the  stag.  pt.  at  the  current  a 

PREP 

Pe/Ps  = PRE(I)  = sin2  (fljj) 


dPe/Ps 

■ DP0DS(I)  = PWS  • sm(2%)  

dSb 


Newtonian,  Sb  <8^ 


dS 


C0ED1  = 


RH0A  V2 
2 PWS 

::„2  ,n  \ 


RS0RA  * S. 


C2  = C0ED2  = Sin2  (^  ) - 1 + C0ED1 


Pe  /S, 

= PRE(I)  = 1 - C0ED1 

'Sb 


P^ 

d(Pe/Ps) 


C0ED2 ■ 


Polynomial,  S 


dS 


= DP0DS  (I)  « - 2 • C0ED1  • PWS 


c*  2 

bb 


4 * C0  ED2  • PWS  * 


q*4 

Sb 


2014 

1020 

1020 

1021 

1003 

<s£ 

1026 


545< 


PRE(I)  = sin2  (%)  + PA0PS  • cos2  (%) 


Newtonian, 


DP0DS(I)  = PWS  . sin  (2%)  - 


The  entropy-layer  pressure  formulation  is  done  by  integrating  a differential 
equation,  Statement  3003.  See  DEREQB  and  GETB  significant  equations. 

The  Prandtl-Meyer  pressures  are  obtained  by  two  dimensional  table  look 
ups  (GETNU  and  GETFRE  subroutines)  and  the  logic  between  Statements 
1042  and  1066. 

3.  QCq)NY 

QLa  = QLW(I)  = ybwJFL0W*  R0B  • UED  • [(1.  + 0.096  VBETA)  / V^XST]  ■ ^LSW.. 


(RH0BS  • XMUBBB  • DUDSW  • (JFL0W  + 1))1/2  • 1.068 


pB  « R0B  = PREW(I)  < 


XMAMB  • PWS 


Ue  = UED  = DUDSW  • SBW(I),  Sh<St 


( 2 • HAMB  , S.  *>  S, 


/3  = BETA  - 0.5,  Sb  < SA 


2 DPDSW(I)  • XSI 

™UBBB  * R0E  • UED3  • R0B  . y 2JFL0W 


<0  1004 


546< 


1 


1000 


f = XSI  = RH0BS  . XMUBBB  • DUDSW  • 


2JFL0W  + 2 


Sb<Si 


= XSISUB  + XMUBBB- 


/ 


R0B  • UED  * y 2JFL0W  d$  100  \ 


where 


Sx  = Sb  evaluated  at  second  output  point 
XSISUB  = £ evaluated  at  largest  SBW(I)  < S2 

pe  = R0E  = RH0T  PREW(I)1/GAME 

REYX  * REW(I)  = R0E  UED  SBW(I)/(XMUE  • RYN0RM) 

GAME 


/ GAME  — 1\ 

XMUE  = pTE,  TE  = TT-  \PREW(I)  GAME  j 

rsre0.8  /^TN0-2  reyo.2 
V SIGMA2/3  J \ XMUE  J 


QTi  = QTW(I)  = 0.0296 


R0E  * UED  • 


HAMB 


(1556  +QTSTAD) 


1006 


RSRE  = TE/TSTR 


[1  + 4 S -i)  + 0-22-SIGMAl/3  (If-1)] 


4.  WIND 


yb 


xb 


YBW(I)  = (yQ  - YBRAL).cos(a) +(x0  — XBRA2)  • sin(a) , xQ 
(— yQ^  — YBRAL)  * cos  (a)  + (xQ  — XBRAL)  • sin  (a),  after  xc  « 
XBW(I)  = (xQ  - XBRAL)  * cos  (a)  - (yQ  - YBRAL)  ♦ sin  (a),  xQ 


1 °largest 

x 

°Iargest 

<xo, 

1 largest 


= (x  — XBRAL)  • cos  (a)  — (— y — YBRAL)  • sin(a),  after  x = x 

1 1 1 largest 


XBRAL,  YBRAL,  SBRAL  = values  of  xq,  yQ  , and  Sq  for  stagnation  point  of 
current  a,  m zero  angle  of  attack  system. 
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THETBW(I)  = $Q  +« 


Xn  < \ 


a-  6 - 180, 


after 

°i  °largest 


Sb  = SBW(I)  = SQ  - SBRAL 


= 2 S - SBRAL  - Sn  after  x = x 

°largest  °i  °x  largest 


yb  = YBL(I)  = (yQ  - YBRAL)  cos  (a)  + (xQ^  — XBRAL)  • sin  (a) , 


(-y  _ YBRAL) -cos  (ce)  + (x0  -XBRAL)  sin(a) 


xb  = XBL(I)  = (xQ,  - XBRAL)  • cos  (a)  - (yQ  - YBRAL)  • sin  (a) 


= (xQ  - XBRAL)  - cos(a)  — (— y0  — YBRAL)  * sin(a) 


6b  = THETBL(I)  = 180  - - 6 


Sh  = SBL(I)  - SBRAL -SQ 


after  = 0 


after  xrt  = 0 


DELS  = RA0RS  • EF 


EF  = ACtfSH DTDSMP  • 

V 3 RA0RS  V 1-3  RA0RS 


if  <0,  OlSh^Sh  , and  JFLOtt  < 0 


548< 


DTDSMP 


= 1/ 


d0b 

dsb 


| current  stag  point 


IF 


dsb 


0,  0 < Sjj  < sb  , and  JFL0W  < O,  the  equation  is  the  same  but 


= -RN  if  a = 0, 


1025 


Y1W(1) 

DTDSMP  — ^ a£  0, 

sin  (a) 


1026 


where  Y1W  (1)  is  the  y coordinate  of  the  stagnation  point  for  the  current  a 
m the  zero  angle  of  attack  system 


- d% 


DTDSMP  =1/ 

dsb 


if 

current  stag  point 


ddh 

di^ 


4 o 

current  stag  point 


1036 


If  JFL$W  > 0,  DELS  is  computed  from  a two  dimensional  table  look  up 

{1009  to  1018)  for  ^L(e,  pA/ ps  ),  where  YT  and  e are  either  referenced  to 
yT 

the  sonic  point  (1008)  or  the  beginning  of  a straight  section  if  there  is  such 
a section  m 0 < Sb  < Sb  (1028  to  1031,  if  Xb  > Aso.  If  Xb*  < Aso,  DELS  = 
Aso  - Xb*  at  1037. 


7.  GETQRS 


If  = 90  , £ = STAND  (I)  = 


( “ RW  + SQRTF  (RW2  + BSH0CK  YBW  (I)2 

XBw  (1)  — < — - 

l BSH0CK 

h ^ 90 , compute  Yw  = YW  = pos  root  of  the  quadratic  given  by 
A = 1 - BSH0CK  TANN2 


DELS  f 1036 


B = 2 RW  • TANN  + 2 BSH0CK  DM  TANN  + 2 • BSH0CK  YB W (I)  TANN2 

C « 2 RW  {DM  + YBW  (I)  • TANN } - BSH0CK  • DM2  - BSH0CK  YBW  (I)2  TANN2 

- 2 • BSH0CK  • DM  YBW  (I)  • TANN 
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where. 


TANN  = tan  (6 
w 


SSS  = STAND  (I  ) 


SSS  = STAND  (I) 


),  DM  = XBW(I)  - DELS 
[YW  - YBW  (I)] 

= if  BSH0CK  < 0 

cos  (THWT) 

AINT  + ARGUI  • DM  - YBW  (I) 
cos  (THWT)  + ARGUI  ."sin  (THWT) 


1040-1003 

1025 


if  BSH0CK  > 0 


where^ 

AINT  = YBW  (I  - 1 ) + STAND  (I-  1 ) • cos  (THETBW  (I-  1 ) - ARGUI  [XBW  (I- 1 ) 
STAND  (I— 1 ) • sin  (THET  BW  (1-1)  + DELS  ] 

ARGUI  « SQRTF  (BSH0CK) 

_1  2 « RW  + 2 * BSH0CK  • [DM  - (YW  - YBW(I»  • TANN 


= THWW  = tan" 


2 • YW 


P = PARG  = PREW(I) 


2116 


QRADX  « QRAD  (I)  « — STAND  (I) 


XINB  » table  (1,  12)  [ 6. w *=  THT,  XINW  = table  (1,  13)  |p  = PARG, 
independent  variable  tables  being  TABLE  (1,1)  and  (1,  7),  respectively. 

8.  STAGPT 

XBRAL  = YBR  • sin  (a)  - XBR  • cos  (a),  1027 

XBR,  YBR  are  x and  y co-ordinates  m the  zero  angle  of  attack  system  of  a 
point  where  6^  + a =90.  The  stagnation  point  is  that  which  maximizes 
XBRAL,  and  the  candidates  are  found  by  the  IF  J->00 P from  1030  to  1008. 
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9.  GETB 


BB  = (GAMS  - 1)  • (PRC0N)  — • XINT 


PRC0N 


XINT 


r 


at  start  of  straight  section 


PRE  dyb  , yss  = yb  at  start  of  straight  section,  JFL0W  < 0 


f 


PRE  • yb  dyb  , JFLOW  > 0 . 


10.  FINDRW 


i2  *=  XSI2  = largest  root  of  Cx  £2  + C2  £ + <f>  = 0,  If  J FL0W  > 0 1014 


where 

Cx  = 2 • TBR 


■ 5 • RE0RA  ♦ UE0V  + 


XNNX  + 2 


— 2 • YB  » TBR 


TBR  = cos  (TB),  TB  = 0b  = body  angle 


p /o  = RE0RA  = RS0RA  • PREW  (I)  ( — ~ J 
e a \ GAMS  / 


Ue/V 


(GAMS  - 


])l/2 


1 - PREW  (I)  GAMS  j | 


TERM  = RURV  • C0SF  (TWL  - TB ) - RE0RA  • UE0V 


TWL  and  RURV  = an<*  f’U^aV  eva^uate^  h°m  oblique  data  at  6^  = THET 
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YB  = body  y 


* XSI2  = (If  J FL0W  < 0)  YB/  RE0RA  • UE0V  + 5 TERM  - TBR 

|_  7 ‘ XNNX  + 1 

For  the  forward  point,  (ICQ5MP  = 0) 

il  = XSI1  ~ [(XB  + DELS)  cos  (THETR)  - YB  . (1  - sin  (THETR))]  1071 
TBR  - sin  (THET  - TB) 


where 

THETR  = dw  of  iteration,  XB  = body  X - coordinate,  DELS  = detach- 
ment distance 

RW  = [XSI2  • TBR  + YB]  / cos  (THETA W)  , THETAW  = converged  0W  1066 

For  the  most  forward  point  with  (?b  0 {ICQ$MP  = 1) 

=s  XSI1  = largest  root  of  A^2  + B^  + C 
A = l/(XB  + DELS) 

B = 2 • YB  • A - tan  (THETR) 

C = YB 2 • A - RW  - YB  - tan  (THETR) 

BSH0CK  = [(YB  + XSI2)  • TANTR  - RW]/(XB  + DELS),  TANTR  = tan  (THETR), 
THETR  = converged  6 w . 


11.  AC$SH 


1 

ACOSH  (ARG)  = In  (2  • ARG) 

2 


1 

2 ARG2 


1 

1 


3_  1 

4 4 ARG4 


12.  DERQ5 


d(Pe/pS> 

dx 


4 


p«/ps  - pA/ps 


■ p»/ps  - pA/ps 


1006 


pA/ps  = PA0PS  Pe/Ps  = XEQ(l) 
JFL0W  > 0. 


d (Pe/PS>  GAMS 
dx  ~ BB 


XTERM  = yss  • tan  &b  + tan 1 (x  - xgs ) - -/ARG 

VPS  " VPS 


ARG  = 


1 - Vps  - VPS 


1 

GAMS 


+ (yss  + can  0b(x-xss)) 


x , y , 6,  : x,  » v.  » ft  at  start  of  straight  section,  x = independent 
ss  ,ss  b b /b  b 
variable. 


13.  SUB110 

The  zero  angle  of  attack  co-ordinate  equations  are  obvious  by  inspection, 
and  have  been  documented  in  Program  1882, 
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I.  INTRODUCTION 


A.  GENERAL  DESCRIPTION 

The  purpose  of  this  program  is  to  determine  the  unit  area  structural  weight  re- 
quirements for  shells  to  resist  the  critical  aerodynamic  loads  incurred  during 
entry.  Tne  general  inputs  include: 

1.  The  aerodynamic  load  in  terms  of  the  peak  pressure  which  may  occur 
on  each  section  of  the  vehicle- 

Z.  The  mechanical  properties  of  the  material,  including  modulus  of  elas- 
ticity, yield  stress,  Poisson’s  ratio,  and  density. 

3.  Geometric  parameters  describing  the  size  and  shape  of  the  elemental 
sections,  including  spherical  caps,  conical  frustra,  cylinders,  and  the 
tension  shell. 

4.  The  following  types  of  construction  can  be  handled  by  the  program* 

a.  Cylinders  and  conical  frustra-honeycomb  or  ring-  stiffened. 

b.  Spherical  caps — honeycomb  or  monocoque 

c.  Tension  shell- -monocoque 

5.  The  program  treats  the  case  of  a hot  structure,  using  the  thin  skin 
assumption,  for  which  the  convective  and  radiative  heating  tables  and  a 
stagnation  enthalpy  table  are  required  as  input.  Additional  material  prop- 
erties must  be  specified  for  this  case,  including  the  specific  heat,  and  emis- 
sivity,  The  variation  of  material  properties  with  temperature  is  handled  by 
input  values.  The  program  will  obtain  the  unit  area  weight  necessary  to 
'resist  the  combined  aerodynamic  and  thermal  loads. 

6.  The  design  criteria  utilized  include  buckling  and/or  yield  stress  cri- 
teria, and  allowable  temperature  rise. 

B.  CALCULATION  MODEL 
l.  Honeycomb  Sandwich 

The  calculation  model  for  tne  honeycomb  analysis  is  described  in  detail  in 
Reference  1,  and  hence  only  a brief  summary  is  given  here.  The  analyses 
considered  five  modes  of  failure:  (1)  general  instability;  (2)  yielding  of  face 
sheets,  (3)  core  crushing;  (4)  dimpling  of  face  sheets;  and  (5)  wrinkling. 
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Since  little  test  data  and  theoretical  analysis  are  available  on  the  buckling 
of  sandwich  spherical  caps,  derivation  of  the  general  instability  criteria 
was  limited  to  transformation  of  isotropic  buckling  data  to  sandwich 
shells;  the  data  was  correlated  as  shown  in  Figure  1.  Transformation  of 
these  data  employed  the  use  of  equivalent  bending  and  extensional  rigidity 
moduli  for  sandwich  shells.  The  equivalent  extensional  (B)  and  bending 
(D)  rigidities  have  the  form* 

2Efcf 

B = 

» - V,2) 

E f'f'c2 

D — - - ■'  — - 

2(l-vf2) 

where  Ef , v£  and  tf  are  the  modulus  of  elasticity,  Poisson  ratio  and  thick- 
ness of  the  face  sheets  and  tc  is  the  core  height.  The  experimental  data 
for  the  buckling  of  homogeneous  spherical  shells  was  taken  from  References 
2,  3,  and  4.  The  spherical  cap  geometry  is  depicted  in  Figure  2. 

The  conical  and  cylindrical  sandwich  analyses  were  based  on  the  approach 
of  Reference  5 utilizing  the  equivalent  rigidities  discussed  above.  The 
conical  shell  geometry  used  is  depicted  in  Figure  3. 

The  honeycomb  calculated  provides  an  optimum  face  sheet,  and  core  height 
to  resist  buckling  with  minimum  weight.  The  optimum  values  to  prevent 
buckling  are  compared  with  those  required  for  the  yield  or  minimum  gauge 
criteria,  then  the  honeycomb  sandwich  is  re-analyzed  with  the  heavier  face 
sheets  and  the  results  given  for  the  core  height  and  total  unit  weight. 

The  calculation  model  allows  for  the  combined  interaction  of  lateral  pres- 
sure and  axial  loads.  The  effects  of  body  forces  due  to  the  deceleration 
experienced  during  entry,  for  example,  are  also  included  in  the  calcula- 
tion model.  The  body  forces  due  to  the  heat  shield  are  included.  The  in- 
clusion of  the  body  forces  results  in  an  iterative  solution  as  the  effect  de- 
pends on  the  structural  weight  which  is,  of  course,  unknown  initially. 

Besides  the  buckling  criteria  of  Reference  5,  the  meridional  (a^)  and  cir- 
cumferential {eg  ) stresses  are  incorporated  into  an  elastic  yield  criteria, 
wherein  the  allowable  stress  is  given  by 

°y  = U*  a£2  ~ °e  * 


In  the  case  of  forward  facing  cones,  it  is  possible  that  the  maximum  stress 
will  not  be  at  the  base  of  the  cone  due  to  the  body  forces;  hence,  the  result- 
ant stress  (°y  ) is  tested  over  the  whole  length  of  the  cone  to  ascertain  its 
maximum  value . 
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Figure  1 EXPERIMENTAL  BUCKLING  OF  SPHERICAL  SHELLS 


FACE  SHEET 


M-!l! 


SANDWICH  CONSTRUCTION 
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Figure  2 SPHERICAL  CAP  GEOMETRY 
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2.  Ring  - Stiffened 


The  calculation  model  for  the  r mg -stiffened  analysis  is  that  suggested  m 
Reference  5.  The  method  of  solution  is  based  on  an  application  of  the  prin- 
ciple of  minimum  potential  energy  of  an  equivalent  orthotropic  shell,  utili- 
zing a set  of  displacement  relationships  to  describe  the  deflected  shape. 

The  range  of  application  of  shell  geometries  is  approximately  given  by. 


where  (L)  is  the  slant  length,  (R^  ) and  ( R2  ) are  the  minimum  and  maximum 
radii,  ( t ) is  the  shell  thickness,  and  (3)  is  the  cone  angle  of  the  shell  sec- 
tion. 

A particular  stiffener  geometry,  that  of  a (Z)  section  as  shown  in  Figure  4, 
is  fixed  m the  program.  The  effective  width  of  the  stiffener  is  controlled 
by  input,  as  well  as  the  proportions  of  the  stiffener. 

The  solution  is  programmed  so  as  to  satisfy  local  and  overall  stability  and 
to  solve  for  the  number  of  rings  which  minimize  the  total  shell  weight.  Tests 
are  provided  to  ensure  minimum  gauge  and  yeild  criteria  are  satisfied. 

The  program  provides  for  the  option  of  either  specifying  the  stiffener  height 
and  satisfying  both  local  (inter -bay)  and  general  stability,  which  m general 
will  require  different  shell  thicknesses  or  the  program  can  solve  for  the 
stiffener  height  which  yields  equal  shell  thickness  requirements  for  local 
and  general  stability.  The  calculation  model  assumes  that  the  stiffeners 
have  the  same  thickness  as  the  shell.  The  spacing  between  stiffeners  is 
limited  to  a value  not  smaller  than  the  effective  width. 

The  calculation  model  provides  for  lateral  pressure  and  axial  loads  as  well 
as  for  body  forces.  The  body  forces  include  those  due  to  the  structure  as 
well  as  those  arising  due  to  a heat  shield  attached  to  the  structure.  The 
inclusion  of  the  body  forces  results  in  an  iterative  solution  as  the  body  force 
depends  on  the  structural  weight  which  is  unknown  initially. 

The  method  of  solution  starts  by  considering  a shell  without  rings  and  satis- 
fying the  buckling,  yield  stress  and  mimumum  gage  limitations.  If  the  mini- 
mum gage  and/or  yield  stress  limits  are  not  excluded  then  rings  are  added 
m a sequence  controlled  by  input,  i.  e.,  rings  may  be  added  one  at  a time  or 
m a progressive  manner  given  by  the  expression 
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where  NFAC  and  NTERM  are  program  input  integers.  Each  ring  configura- 
tion solution  is  tested  against  the  limits  on  minimum  gage  and/or  yield  stress 
and  if  either  of  these  two  conditions  are  excluded,  the  calculation  stops, 
with  the  last  weight  being  evaluated  on  the  largest  of  the  thickness  require- 
ments . 

The  yield  stress  criteria  is  based  on  the  combined  criteria  wherein  the 
maximum  stress  is  given  by 


In  the  case  of  forward  facing  cones,  it  is  possible  that  the  maximum  stress 
will  not  be  at  the  base  of  the  cone  due  to  the  body  forces,  hence,  the  re- 
sultant stress  {oy  ) is  tested  over  the  whole  length  of  the  cone  to  ascertain 
its  maximum  value . 

3.  Tension  Shell 


The  calculation  model  for  the  tension  shell  utilizes  the  membrane  equations 
to  determine  the  stress  distribution  in  the  shell,  as  done  m Reference  6. 

The  calculation  model  assumes  that  the  vehicle  mass  all  exists  forward  of 
the  tension  shell.  Two  options  are  provided,  one  being  the  case  of  a New- 
tonian pressure  distribution  and  zero  hoop  stress  and  the  second  being  the 
more  general  case  wherein  the  coordinates  are  input,  and  the  hoop  tension 
is  taken  as  a fraction  of  the  meridional  tension,  1,  e. , Ng  = aN^  . 

Along  with  the  tension  shell  analysis,  the  compression  ring  weight  is  evalu- 
ated using  the  criteria  of  lateral  stability  as  derived  in  Reference  7,  and 
that  of  buckling  of  a long  cylinder  m compression  as  suggested  in  Reference 
8.  A circular  cross  section  is  used  to  estimate  the  compression  ring  weight, 


Monocoque 


An  option  is  provided  to  compute  the  weight  of  spherical  caps  of  monocoque 
construction.  The  approach  is  empirical,  utilizing  the  buckling  data  cor- 
related m Figure  1 and  the  shell  model  in  Figure  2.  General  instability  and 
yielding  modes  of  failure  are  considered,  and  the  resulting  shell  thickness 
is  compared  with  practical  minimum  gage  limitations. 


5.  Geometry 


The  overall  vehicle  geometry  for  which  the  program  is  intended  is  shown  in 
Figures  5 and  6.  The  toroidal  sections  defined  by  RSN,  RSC,  and  RSB 
cannot  be  handled  with  the  program;  however,  these  parameters  are  re- 
quired as  input  to  define  the  fore  and  aft  radii  of  each  conical  section.  The 
tension  shell  geometry  considered  is  shown  in  Figure  6 wherein  the  tension 
shell  replaces  Section  23,  as  shown  m Figure  5. 
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SECTION 

1 NOSE  SPHERE 

2 R$n  TORUS 

3 CONE  (SEE  FIGURE  6 FOR  ADDITIONAL  OPTIONS) 

6 R sc  TORUS 

7 CYLINDER 

8 FLARE 

9 FORE  R3h  TORUS 

10  AFT  Rsb  TORUS 

11  AFT  CONE 

12  AFT  SPHERE  (RA) 

13  , BASE  (Rt) 


Figure  5 VEHICLE  SHAPE  PARAMETERS 


TENSION  SHELL  OPTION  (SECTION  4) 


CONTINUE  AS  ON 
PREVIOUS  FIGURE 


f3~  TENSION  SHELL  INPUT  PARAMETER 

R3-  BASE  RADIUS  OF  TENSION  SHELL  (NOT  INPUT) 


e2G.e3Gix»R~  GENERAL  SHAPE  INPUT  PARAMETERS 
n 4 25 

es-  11628 


Figure  6 TENSION  SHELL  AND  GENERAL  SHAPE  PARAMETERS 
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6.  Body  Forces 


The  calculation  model  provides  for  the  inclusion  of  body  forces  resulting 
from  the  structure  and  the  heat  shield  during  entry. 

The  formulation  of  the  sandwich  buckling  analysis  for  cones  can  handle  a 
limited  range  of  body  forces  when  the  body  forces  cause  a tensile  stress. 
The  limitations  are  due  to  the  fact  that  Kj  and  K2  must  be  greater  than 
zero  as  the  equations  are  formulated.  The  limits  take  the  form 

(WHS  + W)G  < i + y (1  — 0)2 

144  PCR  sin  6 /3(1  — 0 + 0/3  + 0/2n-)2 

(WHS  + W)G  sind  <1 


In  general,  these  limits  are  automatically  fulfilled  for  entry  vehicles  where 
the  fore  body  pressures  are  sufficiently  large  to  decelerate  the  payload 
internal  structure  and  afterbody  as  well  as  the  heat  shield  and  structure  of 
the  forebody. 

7.  Hot  Structures 


The  option  to  compute  the  temperature  rise  for  a specified  heat  pulse  is 
contained  within  the  program.  Both  the  convective  and  radiation  heat  pulses 
may  be  input.  Provision  is  made  to  account  for  the  hot  wall  reduction  on 
the  convective  heating  and  for  reradiation.  The  structure  is  assumed  to  be 
at  a uniform  temperature  equal  to  the  surface  temperature.  In  the  event 
the  structure  temperature  rise  exceeds  the  allowable  input  value,  the 
structural  weight  is  increased.  The  material  properties  are  treated  as  a 
function  of  temperature. 

C.  LIMITATIONS 

The  following  basic  limitations  exist  m the  program: 

1.  The  effects  of  bending  and  edge  conditions  are  not  treated. 

2.  The  sandwich  core  is  assumed  rigid  so  that  transverse  shear  deforma- 
tion has  a negligible  influence  on  the  buckling  load;  consequently  the  results 
would  not  be  valid  for  a weak  core. 

3.  The  sandwich  construction  must  have  equal  face  sheet  thicknesses. 

4.  Axi symmetric  loading  is  assumed. 
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n.  USAGE 

A.  INPUT  DEFINITIONS 

Name 

Preset 

Values 

Symbol 

Parameter 

Units 

A 

0. 

a 

Ratio  of  Circumferential  to 
meridional  stress  for  ten- 
sion shell. 

" 

BETA 

0. 

JS 

Beading  edge  angle  for 
tension  shell. 

degrees 

CASE 

0. 

Identification  number  of  the 
form  XX. XX. 

CBAR 

1. 

An  empirical  factor  which 
modifies  the  value  of  used 
in  the  calculation  model  for 
combined  loadings. 

CPTAB 

0. 

c 

p 

Specific  heat  table. 

Btu/lb-  °F 

DATE 

4.01 

Identification  number  of  the 
form  XX. XX. 

-- 

DELKI 

0. 

Additive  term  in  calculation 
of  Ki. 

in.  3 

DELK2 

0. 

Additive  term  in  calculation 
of  K2. 

inche  s 

DELTAU 

0.  1 

Time  increment  used  for 
integration  of  temperature 
rise  equation. 

seconds 

DTHDY 

0. 

dd/dY 

Derivative  of  body  angle 
with  radial  coordinates  for 
general  shape. 

rad/ft 

EF 

0. 

Ef 

Modulus  of  elasticity  for 
honeycomb  face  sheets  and 
monocoque  skin. 

lb  / in.  2 

EFTAB 

0. 

Et 

: Face  sheet  modulus  table. 

lb  /in.  2 

Name 

Preset 

Values 

— 

Symbol 

Parameter 

Units 

EM 

0. 

m 

Effective  width  factor. 

- 

EN 

0. 

n 

Stiffener  proportionality 
factor. 

— 

EMISTR 

o„ 

€ 

Emissivity  of  structure. 

- 

EPS 

0.01 

Thickness  iteration  factor. 

ER 

0. 

er 

Modulus  of  elasticity  for 
compression  ring. 

lb/m.  2 

GAME 

0. 

vi 

Poisson  ratio  for  honey- 
comb face  sheets  and 
monocoque  skin, 

G 

0. 

Deceleration. 

Earth  g 

GAMR 

i 

0. 

Poisson's  ratio  for  core 
ribbon. 

GAMBAR 

0. 

y 

Axia3  load  factor. 

— 

GFTAB 

0. 

yf 

Face  sheet  Poisson's 
ratio  table. 

- 

GRTAB 

0. 

V 

r 

Ribbon  Poisson's 
ratio  table. 

-- 

HS 

0. 

H 

Height  of  stiffener. 

inches 

HTBE 

0. 

i 

HM/RTq 

Stagnation  enthalpy  table. 

— 

HTST 

0. 

1 

Hot- structure  option 
sentinel. 

— 

HT(£>P 

1. 

Stiffener  optimization 
sentinel. 

— 

KADHES 

0. 

K 

Honeycomb  adhesive  weight. 

lb/ft2 

LrC 

0. 

1 

LC 

Cylinder  length. 

feet 
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Preset 

Values 


Parameter 


Shoulder  radius. 

Ring -stiffened  option 
sentinel* 

Shoulder  radius 

Truncation  radius  at  base. 


Radiative  heating  table.  Btu/ft^s 


Ordered  array  of  section 
numbers. 

Face-sheet  yield  stress 

table.  lbs /in.  * 

Ribbon  yield  stress 

table.  lb/m.  ^ 

Yield  stress  of  honeycomb 

face  sheet.  Ib/m.  L 


Yield  stress  of  core 
ribbons. 

Yield  stress  of  compres* 
sion  ring  skm. 

Maximum  core  thickness. 

Minimum  core  thickness. 

Maximum  allowable 
structural  temperature. 


Initial  structural 
temperature. 


Preset 

Values 


Parameter 


Minimum  honeycomb  face 
sheet  and  monocoque  skin 
thickness. 

Afterbody  cone  angle. 
Flare  angle. 

Forebody  cone  angle. 
Nosecap  angle. 


Initial  angle  for  general 
tension  shell. 

Final  angle  for  general 
tension  shell. 


Initial  temperature  at 
which  structural  pro  per  ties 
are  selected. 

Maximum  thermal  design 
time  during  vdiich  Tw  <. 


Temperature  table. 

Unit  heat  shield  weight. 


Mole  fractions  of  argon, 
nitrogen,  carbon  dioxide, 
and  oxygen  m the  atmos- 
phere. 

Coordinates  for  general 


B.  INPUT  PROCEDURES 


1.  General 

a.  Decimal  points  may  be  used  on  all  numerical  input  data,  although 
they  are  not  necessary  on  integer  values. 

b.  RC  must  always  be  specified. 

c.  If  RB  is  not  specified,  then  RB=RC. 

d.  Contour  angles  (0)  are  measured  relative  to  free  stream  and  a 
positive  value  indicates  an  increasing  body  radius  whereas  a negative 
value  indicates  a decreasing  body  radius. 

e.  If  several  cases  are  run  on  a single  memo,  only  changed  inputs 
need  be  specified  following  the  first  case. 

f.  Input  QTBE,  HTBL,  and  RTBL  as  a function  of  TIME.  For  each 
value  of  TIME  input  there  must  be  corresponding  values  of  QTBE, 
HTBL,  and  RTBL  (maximum  of  150  values  in  each  table).  In  stack- 
ing cases,  it  is  necessary  to  add  at  least  one  0.  value  at  the  end  of  the 
TIME  table  if  the  number  of  entries  is  decreased.  This  0.  value  is 
used  internally  as  an  indication  of  the  end  of  the  table. 

2.  Shell  Geometry 

The  section  numbers  and  section  parameters  are  identical  to  those  of 
Programs  1881,  1882,  and  so  forth.  Although  tori  cannot  be  handled  by  the 
program,  the  tori  parameters  are  nevertheless  required  m many  cases  to 
compute  the  fore  and  aft  section  radii. 

SECTIONS 


The  vehicle  sections  are  specified  by  an  ordered  list  of  numbers  vhich 
identify  them  and  place  them  m the  desired  sequence.  The  number  list  is 
given  below,  and  the  corresponding  sections  are  further  described  by 
Figures  5 and  6. 
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Number 

Section 

Input  Required 

1. 

NOSE  SPHERE 

RN,  THN 

2. 

TORUS 

RSN 

3. 

CONE 

THC 

4. 

TENSION  SHELL 

BETA 

5. 

GENERAL  SHAPE 

TH2G,  TH3G,  X,  R 

6. 

TORUS 

RSC,  RC 

7. 

CYLINDER 

LC 

8. 

FLARE 

THB 

9.  , 

TORUS 

RSB,  RB 

10. 

TORUS 

RSB 

11. 

AFTC0NE 

THA 

12. 

AFTSPHERE 

RA 

13. 

BASE 

- RT 

Construction  Options 

a.  Monocoque  analysis  for  the  spherical  cap  for  flat  base  is  used  when 
the  option  sentinel  M0N  = 1 is  specified. 

b.  Ring -stiffened  analysis  for  the  conical  and  cylindrical  sections  is 
used  when  the  option  sentinel  RSD  = 1 is  specified. 

c.  The  hot  structure  analysis  is  utilized  when  the  option  sentinel 
HTST  = 1 is  specified. 

d.  The  program  will  use  honeycomb  if  and  only  if,  no  option  sentinels 
are  specified. 

e.  Ring  depth  optimized  if  HT0P  = Z.  0. 
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4.  Design  Factors 


a.  Conical  Shell  Buckling 


The  calculation  model  for  an  unstiffened  cylinder  under  external  pres- 
sure reduces  to  the  expression 


PCR 


0 92  Ef  tf5/2 


Reference  9 


which  agrees  precisely  with  equation  (3)  of  Reference  9.  The  data 
summary  given  in  Reference  9 indicates  that  the  theoretical  critical 
pressure  is  too  large,  and  should  be  reduced,  and  a design  factor  of 
(0.  8)  is  reasonable.  Calculations  using  Program  1886  for  cones  under 
hydrostatic  pressure  are  summarized: 


Pcr/Pe  PcAe 


p = 1 

r2 

$c  = 30  degrees 

Qc  =60 

0.  1 

0.  99 

0.  97 

0.3 

1.  00 

0.  98 

0.5 

1.  05 

1.  02 

0.  7 

1.  12 

1.  08 

0.  8 

1.  20 

1.  14 

0.9 

1.  18 

1.  15 

1.  0 

1.  18 

1.  16 

Using  the  recommended  design  criteria  of  Reference  9 would  require 
factors  on  the  aerodynamic  pressure  ranging  from  (1.2)  at  small 
-values  of  (/3)  to  (1. 5)  at  large  values  of  ( /3  ). 

b.  Interaction  Effects 

The  calculation  model  for  buckling  under  combined  lateral  pressure 
and  axial  loading  yields  a theoretical  interaction  curve  similar  to 
those  presented  in  Reference  9.  Typical  results  obtained  from  Pro- 
gram 1886  are*  given  m the  following  table  for  cylinder  witht/j^=  0.  01 
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Y 

pCR/pcro 

F/2jrEftf2 

0 

1.  00 

0.  00 

4 

0.  88 

0.  08 

10 

0.  81 

0.  18 

20 

0.  61 

0.27 

40 

0.43 

0.38 

100 

0.  22 

0.48 

200 

0.  11 

0.48 

400 

0.  05 

0.48 

where  F is  the  axial  load  and  Pcro  is  the  critical  lateral  buckling 
pressure  with  zero  axial  load. 

The  agreement  with  experiment  for  small  values  of  (y)  is  reasonably 
good;  however,  a correction  factor  is  needed  at  large  values.  An 
empirical  correction  factor  is  formulated  for  cylinders  in  Reference 
10  which  is  a function  of  the  (t/R)  ratio.  In  order  to  facilitate  an 
empirical  correction  to  the  program  model,  an  additional  optional 
input,  designated  CBAR  is  provided,  which  modifies  the  value  of  y 
used  m the  equations,  such  that 

^used  = CBAR  (y)jnpUt 

The  value  of  CBAR  is  preset  to  1.0. 

c.  Spherical  Cap  Buckling 

The  empirical  correlation  of  available  buckling  data  used  m Program 
1886  is  shown  in  Figure  1.  The  value  of  A for  sandwich  shells  is  gen- 
erally smaller  than  for  monocoque  shells,  being  given  by 

X - (Af  . 

Hence,  it  appears  that  the  formulation  utilized  results  in  smaller 
knockdown  factory  due  to  imperfections,  for  sandwich  shells  than  for 
monocoque  shells. 
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5,  Input  Forms 


An  input  form  is  provided  far  the  user.  All  the  information  shown  is  key- 
punched provided  the  variable  is  specified  All  numerical  values  have 
decimal  points. 


C.  OUTPUT  DEFINITIONS 


Name 

Parameter 

Units 

AG 

Area  of  general  shell. 

ft2 

AT 

Area  of  tension  shell. 

ft2 

H 

Height  of  stiffener. 

inches 

N 

Number  of  stiffeners. 

- 

R0C 

Core  density. 

lb /ft3 

RR 

Radius  of  compression  ring. 

inche  s 

SIGH 

Circumferential  stress. 

lb/m.  2 

SIGM 

Meridional  stress. 

lb/in.  2 

SIGMH 

Resultant  yield  stress  criteria. 

lb/m.  2 

T3 

Thickness  of  tension  and  for  general  shell 
adjacent  to  compression  ring. 

mche  s 

TC 

Core  height  required. 

inches 

TCY 

Face  sheet  thickness  required  to  satisfy  yield 
criteria. 

inches 

TF 

Face  sheet  thickness  used. 

inches 

TF0PT 

Face  sheet  thickness  designed  for  optimum 
under  buckle  criteria. 

inches 

TIME 

Time  at  which  TWMAX  occurs. 

seconds 

TNG 

Thickness  of  face  sheet  based  on  local  and 
general  stability. 

inches 

TNL 

Thickness  of  face  sheet  based  on  local  stability. 

inche  s 
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D.  SAMPLE  PROBLEM 


1.  Statement  of  Problem 

Determine  the  external  structural  weight  for  a blunt  cone  configuration  using 
the  heating  and  loads  obtained  from  the  sample  trajectory  problem  of  Pro- 
gram 1880.  A heat  shield  is  to  be  used  on  the  forebody,  but  the  afterbody 
is  to  be  a heat  sink. 

2.  Computer  Input  Forms 

The  necessary  input  computer  forms,  shown  m the  following  pages,  contain 
all  the  necessary  input.  The  nose  cap  and  fore  cone  are  considered  to  be  of 
aluminum  honeycomb  construction.  The  aft  cone  is  of  stiffened  beryllium 
and  the  flat  base  section  is  of  beryllium  honeycomb. 

3.  Output 

The  program  output  is  given  on  the  succeeding  pages.  The  nosecap  is  de- 
signed on  minimum  gage  for  the  face  sheets  and  core  height.  The  face 
sheets  of  the  forecone  are  minimum  gage,  but  the  core  height  is  0.  479  inch. 
The  afterbody  design  indicates  a minimum  weight  for  64  stiffeners  of  0.  17 
inch  height.  The  maximum  temperature  achieved  by  the  afterbody  is  1168°F, 
which  satisfies  the  allowable  temperature  limit.  The  weight  required  for 
the  heating  (temperature  limit)  is  seen  to  be  larger  (WTQ  > WT)  than  that 
required  for  the  structural  loads;  hence  weight  reductions  can  be  achieved 
by  increasing  the  allowable  temperature.  The  base  cover  is  designed  on 
minimum  gage  considerations. 

The  total  skin  weight  is  then 


Section 

Weight  (pounds) 

Nose 

0.  7 

Fore cone 

104.  6 

Aft  Cone 

52.  1 

Base 

18.  3 

Total 

175.  7 pounds 

The  weight  calculated  does  not  include  the  torus  section;  Program  1888 
provides  for  inclusion  of  the  complete  shell. 
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DIGITAL  C0MPU1 
REQUEST 

rER  INPUT  PROBLeM 

N°  1886 

PROGRAMMER 

:ORM  TITLE 

Structural  Preliminary 

Design  Proeram 

EMO  NO  SECTION 

NO  WORK  OROER  NO 

(E240  USE  ONLY)  REQUESTE 

D BY  EXT  EST 

TIME 

PAGE 

. OF  6 PAGES 

$INPUT 

DATE 

MEM0 

CASE 

A 

= 

LC 

SIGCYF 

= 

, 

BETA 

= 

M<?N 

= 

SIGCYR 

CBAR 

= 

NFAC 

a 

SIGRG 

= 

DELK1 

= 

NTERM 

TCMAX 

= 

DELK2 

= 

PCR 

TCMIN 

- 

DELTAU 

QCMULT 

= 

, TEMPA 

= 

DTHDY 

= 

QRMULT 

= 

TEMPI 

= 

EF 

= 

RA 

= 

TFMIN 

= 

EM 

= 

RB 

- 

THA 

= 

EN 

= 

RC 

- 

THB 

= 

EMISTR 

= 

RN 

- 

THC 

= 

EPS 

R&CMAX 

- 

THN 

- 

ER 

= 

R$CMIN 

= 

TH2G 

= 

G 

= 

RQF 

- 

TH3G 

= 

GAMF 

= 

R0R 

= 

, TINIT 

GAMR 

— 

R0RG 

, TST^P 

GAMBAR 

„ 

RSB 

_ 

WHS 

- 

HS 

= 

RSC 

- 

, XA 

= 

HTGflP 

- 

RSD 

= 

XC 

s 

HTST 

- 

RSN 

a 

XN 

a 

KADHES 

- 

RT 

X£> 

= 

CPTAB  = 

EFTAB  = 

DIGITAL  COMPUTER  INPUT 
REQUEST  FORM 


I PROBLEM 


IMEMO  NO 


I SECTION  NO 


CONTINUATION  SHEET 
PAGE  3 OF  6 PAGES 


-L 


HTBL. 

(Continued) 


QTBL 


H AP  7 C90  3 
S 03 


DIGITAL  CO.MPUTfR  INPUT  PROSUMNO  1886 


RHCJUfZST  FORM  [tit^e  Stractuial  Pi  elm-- inary  Design  Pa  ogi  am 


MEMO  NO 

section  no 

*ORK  ORDER  NO 

IE240  USE  ONLY! 

REQUESTED  5Y 

EXT 

EST  TIME 

PL-179 

W610 

W305-050-0005 

1 

P.  Levine 

2996 

$IN  PU  T 


DATE 

= 

4. 1 

. MEMO 

, CASE 

= 

A 

, LC 

, SIGCYF 

= 40000. 

BETA 

- 

MON 

, SIGCYR 

= 40000. 

CBAR 

= 

1.0 

, NFAC 

2.  0 

, SlGRG 

= 

DELK1 

- 

, NTERM  = 

, TCMAX 

= 30 

DELK2 

= 

, PCR 

1. 67 

, TCMIN 

= 0.25 

DELTAU 

0 1 

, QCMULT  = 

, TEMPA 

= * 1200. 

DTHDY 

= 

, QRMULT = 

, TEMPI 

= 100. 

EF 

= 

8 E6 

, RA 

, TFMIN 

= . 01 

EM 

= 

, RB 

, THA 

= -80. 

EN 

- 

t RG 

7.5 

, THB 

= 

EMISTR 

= 

, RN 

1 25 

, THC 

= 60 

EPS 

= 

01 

, R&CMAX = 

10. 

, THN 

= 60. 

ER 

= 

R0CMIN  = 

1. 

TH2G 

= 

G 

= 

25.8 

R0F 

172. 

TH3G 

= 

GAMF 

= 

.33 

R0R  ’ = 

172. 

TINIT 

= 100 

, 

C-AMR 

= 

.33 

_f  R0RG  - 

TST0P 

= 411  6 

", 

GAM  BAR 

= 

RSB  = 

0.15 

, WHS 

= 1.0 

, 

HS 

= 

RSC  5= 

0.15 

XA 

= 0. 

, 

HTOP 

= 

1.0 

RSD  , = 

XC 

= 0.2 

, 

HTST 

- 

RSN  = 

XN 

ii 

", 

KADHES 

s 

.20 

t RT  = 

3.75 

X£> 

= 0. 

CPTAB  = 

4 

, 5 

57  , 

. 61 

. 65  > 

67 

, .7 

73  , 

.76 

EFTAB  = 

44.  E6 

, 42.  E6 

40.  E6  , 

37. E6 

32.-E6  , 

26.E6 

, J.5.E6 , _ 

8.E6 , 

1.E6 

, 
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QTBL 


1.0 


5SG< 


PROtlLCM 

DIGITAL  COMPUTER  INPUT 

REQUEST  FORM  1886 

NO 

MEMO  NO 

PL- 179 

SECTION  NO 

W610 

CONTINUATION  SHEET 
PACES  OF  7 PAGTS 

RTBL 

(Continued) 

■ 

TIME  _ 

0. 

83  59 

91.01 

,98.59 

106.29 

114. 11 

122. 04 

130. 15 

, 138.41 

146.83 

155.43 

164.  26 

173.32 

, 182.60 

192. 13 

201.94 

212. 11 

, 221.42 

, 229.50 

236.  71 

243 . 49 

250. 18 

, 256.24  - 

, 261.31 

_ 

592< 
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OTBL 


0. OOOOOOO OE— 38 1 

O.OOOOOOOOE-38, 
-O^OOOOOOOg-38, 
0.00000000E-38, 
, n.nnonnnonE-38i 
O.OOOOOOOOE-38, 

-o^oooooooa&-aa1 

O.OOOOOOOOE-38, 

-Q^ionnnnotiE-38, 

O.OOOOOOOOE-38, 


O.OOQOOOOOE-38, 
0.0000000QE-33. 
O.OOOOOOOOE-38, 
-0.03  00 0000 E-~38^ 
O.OOOOOOOOE-38, 
.Q,flQOOOOQOE-38,.. 
O.OOOOOOOOE-38, 
0 . 000000008—36 i 
O.OOOOOOOOE-38, 

■ 0.000000006^3.8,- 
O.OOOOOOOOE— 38, 


0.1 OOOOOOOE  00, 
-0.2-3000  OOQE — 0-L, 
0.62000000E  01, 


0 * tOOOOOOOE  01, 
0.2  8 OOP  OOQE— 01^- 
0 * 76000000E  01, 


O.OOOOOOOOE-38, 
-0.000000006-38, 
O.OOOOOOOOE-38, 
-O.OOOOOOQCE— 3-S,- 
0. 00000000 E— 38, 
-O.OOOOOOOOE-3B, 
0.0 OOOOOOOE— 38, 
-O.OOOOOOOOE-38^ 
O.OOOOOOOOE-38, 
-O.OOOOOOOOE-38, 
O.OOOOOOOOE-38, 


0.12000000E  01, 
-0.34000000E-01,- 
0.94000000E  01, 


O.OOOOOOOOE-38, 


O.OOOQOOOOE-38, 
-o.eoooooooE-38, 
O.OOOOOOOOE-38, 
■0  ^300000008=3  8 , 
0 • OOOOOOO OE— 36, 
-0—0  OOOOOOOE— 38^ 
O.OOOOOOOOE-38, 


O.OOOOOOOOE-38, 


0.15000000E  01, 
0 .41QOQOOQE — Ql— - 
0.1 1400000E  02, 


O.OOOOOOOOE-36, 

O.OOOOOOOOE-38, 
-O.OOOOOOOOE-38-, — 
O.OOOOOOOOE-38, 
-0— OOOOOOO  OE  — 38  , ■ 
O.OOOOOOOOE-3B, 
-O— OOOOOOOOE— 33, — 
O.OOOOOQOOE— 38 , 


O.OOOOOOOOE-38, 


0.18000000E  01, 
-0—81QQO0CQE-01 
0. 14100000E  02, 
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O.OOOOOOOOE-3B,  0. COOOOOOOE-38 , 0. OOOOOOOOE-3B,  O.OOOOOOOOE-3S,  0. 00Q00C00E-38 , 

HTBL  * O.I2750000E  03,  0.13090000E  03,  O.131I0000E  03,  0.13H0000E  03,  OilSnOOOOE -03, 
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>.33000000E  00, 
(.80000000E  07, 
l-l  I600000E  03, 
SIGCYF  = 0. 40000000E  05, 

1.33000000E  00, 
I.OOOOOOOOE-38, 
(.50000000E  03, 
SIGCYR  = 0.40000000E  05, 

KAOHES  = 0.20000000E  00, 

PCR  = 0-83000000E— 02 , 

TFKIN  = O.IOOOOOOOE-Ol, 

TCHIN  = 0. 25000000E  00, 

TCHAX  = 0.30000000E  01, 

ROCHJN  = 0. IOOOOOOOE  01, 

ROCHAX  = 0. IOOOOOOOE  02, 

GAMBAR  = O.OOOOOOOOE-38, 

CBAR  = 0. IOOOOOOOE  01, 

WHS  = O.OOOOOOOOE-38, 

G = 0.25800000E  02, 

HS  = 0- OOOOOOOOE— 38 , 

EH  s 0.30000000E  02, 
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.toooocoos. 


-gatWL-T- 


.oooooooee- 


-XC- 


TSTOP — = O.tllWIOO^ 


oJl!4I1000E  03,'  0^122040006  03^ 


0.20194000E  03,  0,212110008  03, 

-0-24349000E-03-. 0-350180008-03-,- 

0.270190008  03,  0.274350008  03, 

■ 0.290910006  03, 0-295420006  03,- 

0.317800006  03,  0.32333000E  03, 


O.OOOOOOOOE-38,  0. OOOOOOOOE-38, 

0.000000006-38,  0.000000008-38, 

O.OOOOOOOOE-38,  O.OOOOOOOOE-38, 

-0-000000006-38, 0-0000000 0 E-38r- 

0. OOOOOOOOE-38,  O.OOOOOOOOE-38, 


O.OOOOOOOOE-38,  O.OOOOOOOOE-38, 

. 0.000000005^38, 0 ■ OOOOOOOOE-,38, 

O.OOOOOOOOE-38,  O.OOOOOOOOE-38, 

-0 . 000000006=38, O-OOOOOOOOE-38^ 

O.OOOOOOOOE-38,  O.OOOOOOOOE-38, 

0.000000008-38, 0-00000000^,38,- 

0. OOOOOOOOE-38,  O.OOOOOOOOE-38, 

O.OOOOOOOOE-38,  O.OOOOOOOOE-38, 


O.OOOOOOOOE-38, 

O.OOOOOOOOE-38, 


O.OOOOOOOOE-38, 
.n , nnnnrtnnng-^R, 
0.000000006-38, 


QTBL 


0. 100000006  00,  0.100000006  01, 

0 . 62000000E  01,  0.76000000E  01, 
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O.OOOOOOOOE-38,  O.OOOOOOOOE-38,  O.OOOOOOOOE-38, 
0.12000000E  01,  0. 15000000E  01,  0.18000000E  01, 
0.94000000E  01,  0.U400000E  02,  0.14100000E  02, 


IHHIKfl 

■ttHMfeiiM 

0.287000006  OzJ 

0!Z6*00000£  02 , 

0.23800000E  02, 

0.92000000E  01, 

0.740000006  0W 

0^580000006  Ol! 

OOOOOOOOE  Oli 

0I32000000E  ou 

0.30000000E  00 1 

0^200000006  Oo! 

ol 10000000E  oo! 

0 .OOOOOOOOE— 38, 

o^ooooooooi-ia! 

oJoOOOOOOQE“38f 

0 . OOOOOOOOE— 38  » 

0 'OOOOOOOOE— 38, 

O.OOOOOOOOE-38, 

0.000000006-38, 

O.OOOOOOOOE— 38, 

0. OOOOOOOOE— 3flj 

O.OOOOOOOOE-3ai 

O.OOOOOOOOE-38, 

o'ooooooooi-38. 

6. boooooooi— 3S* 

O.OOOOOOOOE-38! 

0.000000006—38, 

O^OOOOOOOOE— 3S, 

o.ooooooooi-is! 

0. 00000 000E-3sJ 

0.00000000E-3e! 

CU 000000006-38 i 

O.OOOOOOOOE— 38, 

0. 000000006—38, 

O.OOOOOOOOE-38 j 

O.OOOOOOOOE-38^ 

O.OOOOOOOOE-3e! 

0 .OOOOOOOOE— 38 \ 

0. OOQOOpOOE— 38^ 

O.OOOOOOOOE-3b! 

oZooooooooI-Ss! 

O^OOOOOOOOE-3ei 

olooooooooi-iaj 

olooooooooi-iaj 

0.000000006-38, 

O.OOOOOOOOE-38! 

olooooooooi-38i 

0^000000006-38^ 

ol  OOOOOOOoi— 38 1 

o.ooooooo6e-38» 

0.000000006-38! 

o.'ooooooooE-3a! 

o.ooooooooi-3ai 

olooooooooi-3e! 

0. OOOOOOOOE— 38 » 

0 1 OOOOOOOOE— 38» 

ol 000000006— 36^ 

0 1 OOOOOOOOE— 3 s! 

0 1 OOOOOOOOE— 38 ! 

O.OOOOOOOOE— 3b! 

o^ooooooooi-3e! 

0’00000006e-3b! 

0 : 000000006-38 ! 

olooooooooi-ie! 

0 .OOOOOOOOE— 38, 

0 - 00  000000E— 38  * 

oZooooooooe-3b! 

0^000000006-38, 

ol OOOOOOOOE— 38, 

O.OOOOOOOOE-38 J 

0. OOOOOOOOE— 38^ 

O.OOOOOOOOE-38^ 

0.000000006—38, 

ol  OOOOOOOOE— 3oi 

o. ooooooooi— 38 | 

0 . 00000000£-38t 

O.OOOOOOOOE— 38 i 

O.OOOOOOOOE-38, 

0.000000006-38^ 

O.OOOOOOOOE-3b! 

616ooooooqe-3s1 

61666oOOOOE-38l 

O.OOOOOOOOE-38, 

ol OOOOOOOOE— 38, 

0.000000006-38, 

olooooooooE-iii 

6.oooo66ooi-38! 

OOOOOOOOE— 38^ 

ol OOOOOOOoi— 38^ 

O.OOOOOOOOE-3ai 

0 .OOOOOOOOE— 38 i 

0.0Q000000E-3eI 

O.OOOOOOOOE-38, 

o^oocoooooi-3a! 

0^000000006-36, 

0.000000006—38 1 

0 ^OOOOOOOOE— 38, 

O.OOOOOOOOE— 3s! 

0.000000006-38, 

ol OOOOOOOOE— 3b! 

olo0000000E-3ei 

O^OOOOOOOOE-38i 

0^ OOOOOOOOE— 36 , 

0. OOOOOOOOE— 38^ 

K&ssnssH 

O.OOOOOOOOE— 38^ 

O.OOOOOOOOE-38 i 

0. 000000006—38 « 

O.OOOOOOOOE-38 i 

O.OOOOOOOOE-38, 

o.ooaooaooe-iii 

0.  00000000E— 38 , 

0 .OOOOOOOOE— 38, 

O.OOOOOOOOE— 38, 

0.000000006-38, 

O.OOOOOOOOE-38, 

O.OOOOOOOOE— 36 , 

O.OOOOOOOOE— 38, 

O.OOOOOOOOE-38, 

0.000000006-38, 

0. OOOOOOOOE— 38  « 

0.000000006-38, 

0. OOOOOOOOE— 3b! 

o!ooooooooE-3e! 

o!ooooooooe— 3s! 

0^  OOOOOOOOE— 38, 

O.OOOOOOOOE— 3sj 

O.OOOOOOOOE-38 \ 

0.000000006-38, 

ol OOOOOOOOE— 38, 

O.OOOOOOOOE— 38, 

O.OOOOOOOOE-38, 

O.OOOOOOOOE— 38, 

O.OOOOOOOOE-38* 

O.OOOOOOOOE— 38, 

O.OOOOOOOOE-38 , 

HTBU  = 0.127S00006  03, 

0.13090000E  03, 

0 . 1 3 1 10000 E 03, 

0.13140000E  03, 

0.13170000E  03, 

603< 
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.33000000E  00, 


6R 


SIGCYR  = 
KADHES  = 
PCR 

TFHIN  = 


TCHIN 


TCMAX  a 
ROCMN  = 
ROCHA X = 
GAHBAR  = 


.80000000E  07, 

• 1 1600000E  03, 
.40000000E  05, 
•33000000E  00, 
•OOOOOOOOE— 38, 
.50000000E  03, 
.40000000E  05, 
•20000000E  00, 
.83000000E— 02 , 
. 1 OOOOOOOE— 01 , 
.25000000E  00, 
. 30000000E  01, 
.10000000E  01, 

• 10000000E  02, 

• OOOOOOOOE— 36 , 


■47 


O.OOOOOOOOE-38,  0. OOOOOOOOE-38,  O-OOQOOOOOE-38,  0 .OOOOOOOOE-38,  0. OOOOOOOOE-38 , 


QTBL  = 0.10000000E  00,  O.IOOOOGOOE  01,  0.12000000E  01,  0.15000000E  01,  0.18000000E  01, 

O^WWOOOOE— Ot, 0.280000005-01, 0.340000005-01-, 0,410000005-01, 0,5*0000005-01^- 

0.62000000E  01,  0.76000000E  01,  0.94000000E  01,  0.11400000E  02,  0.14100000E  02, 


•49 


609< 

51/54 


III.  COMPUTATIONS 


A BLOCK  DIAGRAM 

The  block  diagram  for  Program  1886  is  shown  m Figure  7.  It  can  be  seen  from 
the  block  diagram  that  the  inputs  provide  for  dealing  with  conical,  spherical, 
and  the  tension  and  general  shells  with  options  for  considering  various  construc- 
tion approaches  and  for  testing  the  structure  to  ascertain  whether  it  is  suitable 
as  a hot  structure 


85-OOS3 


Figure  7 BLOCK  DIAGRAM  FOR  PROGRAM  1886 
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B.  SYMBOLS 


Symbol 

Parameter 

Units 

a 

ratio  of  circumferential  to  meridiamal  stress 

— 

AT 

area  of  tension  shell 

ft2 

AG 

area  of  general  shell 

ft* 

at 

stiffener  area 

. 2 
in. 

P 

bending  rigidity  of  shell 

lb -in. 

equivalent  orthotropic  shell  bending  rigidity  of  ring- 
stiffened  shell 

lb-m. 

Ef 

modulus  of  elasticity  of  face  sheets 

lb /in.  * 

% 

modulus  of  elasticity  for  compression  ring 

lb/m.  * 

h 

height  of  spherical  shell 

inche  s 

H 

height  of  stiffener 

inches 

KAD 

unit  weight  allowable  for  adhesives 

lb/ft2 

I 

X 

stiffener  moment  of  inertia  about  neutral  axis 

in.  4 

10 

effective  stiffener  moment  of  inertia 

in.  ^ 

Lo 

slant  length  of  cone 

inches 

Lc 

cylinder  length 

inches 

m 

effective  width  factor  or  stiffener 

— 

n 

proportionality  factor  for  stiffener 

— 

N 

number  of  rings 

- 

P 

5 

stability  parameter 

— 

PCR 

critical  pressure  load 

lb /in.  2 

S 

5 

stability  parameter 

— 

T 

temperature 

°R 

'c 

core  height 

inches 

face  sheet  thickness 

inche  s 

t 

copt 

optimized  core  height  for  buckling  criteria 

inche  s 

'ey 

face  sheet  thickness  required  for  yield  criteria 

inches 

CR 

wall  thickness  of  compression  ring 

inches 

tl>c3,t4 

stability  parameters 

— 

Rl>  R2 

minimum  and  maximum  radii  of  conical  shell 

inches 

R2*  r3 

minimum  and  maximum  radius  for  tension  and 
general  shell 

inches 

y 

radial  coordinate 

inches 

Rsc 

toroidal  radius  following  tension  or  general  shell 

inches 

RR 

radius  of  compression  ring 

inches 

RC 

maximum  radius  of  tension  or  general  shell 
combined  with  torus 

inches 

rcap 

spherical  cap  radius 

inches 

convective  heat  rate 

. 2 

Btu/ft  -sec 

^R 

radiative  heat  rate 

Btu/ft2-sec 

Hw 

enthalpy  of  gas  at  wall 

Btu/lb 

Hs 

stagnation  enthalpy 

Btu/lb 

S 

specific  heat 

Btu/lb  -°F 

we 

effective  width 

inche  s 

w 

unit  area  weight 

lb /ft2 

WR 

total  compression  ring  weight 

pounds 

WTG 

total  general  shell  weight 

pounds 
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total  tension  shell  weight 


pounds 


Pf 

Pc 

°CR 

/S 


Poisson's  Ratio 

2 

yield  stress  of  face  sheets  lb /in. 

3 

face  sheet  density  lb/ft 

3 

core  density  lb /ft 

2 

yield  stress  of  core  ribbon  lb /in. 

cone  parameter,  also  tension  shell  angle  (degrees) 
density  of  core  ribbon  lb/ft^ 

local  body  slope  angle  degrees 

last  angle  on  general  shell  degrees 


t time 

e emissivity 

C.  EQUATIONS 

1.  Sandwich  Construction  — Spherical  Cap 
a.  Face  Sheets 


tf  = 0.36  (1 

PCR  RCAP 


2)2/3 

f VEf  / t 4/S 


rcap 


seconds 


(1) 

(2) 

(3) 


-58- 

613< 


b.  Core 


3K2  I 


cc  = 0 465  (1  - v{2)  */2 


'CM374  hl/4  3/2 


tf3A 


kcap 


! PR 


0.588 


c.  Weight 


"opt  - 7/3Kj 


3K2 


M/7 


(4) 


(5) 

(6) 


(7) 


W = *1  tf  + ~ pQ  tc  + KAD 


(8) 


*1  = Pf/6 


(9) 


k2 


_Pc 

u 


0.465  (1  - v{2) 1/2 


hl/4 


(10) 


h = ®CAP  $ “ sin  0CAp) 

(W  + WHS) 

PCR  = PAER0  - -““jjj  G 
2.  Sandwich  Construction- - Conical  Section 
a.  Face  Sheet 


i opt 


4 89 

~ 


[Cl* 


0.414 


• 0.586*1 


(U) 


(12) 


P k 

18.6  (A  tc1/2)  2*84 


(13) 
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cy 


PCR  R2 


(14) 


4<V, 


3 + (1  — y )' 


Z ^2 


b.  Core 


c.  Weight 

WQpt  = 1 971  Cj0*414  C2°*58<5  + Kad 


1 


~ pc  tc  + KAD 


(15) 


(16) 


(17) 


(18) 


evaluated  from  table  1 . 


/ XKj  \ /2.1t3t4y/‘f 

V^2  K 2 j \?«3  -*7 


R2  (1  - 0/2) 

COS  6C 


(19) 


(2.0) 


(21) 


(22) 
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K3 


RY 


' - /s  + — + - (i  -y)U  - /3)2 


J0  (WHS  + W)  G 


Cl 


sin  0C  (144)  PCR 
77  sin  £?c 

r2  z3 

p kpf 

111.9  A2  84 


1-J8  + 


l + J_ 

3 + 2T72 


pc/!2 


(23) 

(24) 

(25) 

(26) 


Pc 


P 


=s  0.22  p^ 


32  t3  A2  Kx3 


(2t3-^ 


(27) 


(28) 


TABLE  I 

EVALUATION  OF  THE  CONSTANTS  Tj,  T3,  T4  as  a 
FUNCTION  OF  THE  GEOMETRIC  PARAMETER  0 


£ 

tl 

t3 

t4 

0.00 

0. 50000 

0. 50000 

0. 50000 

0.  10 

0. 50074 

0. 50018 

0. 50027 

0.  20 

0 50334 

0 50081 

0.  50470 

0.  25 

0. 50554 

0.  50134 

0.50803 

0.  35 

0. 51242 

0 50300 

0. 51621 

0 40 

0.  51748 

0.  50417 

0.52532 

0.  50 

0. 53223 

0.  50749 

0.54946 

0 55 

0. 54273 

0. 50985 

0. 56400 

0.  60 

0.  55625 

0.  51276 

0. 58430 

0.  65 

0.  57382 

0. 51638 

0. 61134 

0.  70 

0.  59704 

0. 52093 

0.64769 

0.  75 

0.62853 

0. 52670 

0.69795 

1..00 

0.  62853 

0.  52670 

0. 69795 

3.  Sandwich  Construction — Cylindrical  Section 


Face  Sheet 

4.7  Xl2/5  X23/5 
hope  - 


(29) 


1 75 


PB  3.87  EfV 
PCR  RC 


{pcr-rc2  Lc-(1-'f 2)3/4} 


<=y  ~ 2 o 


(30) 


(31) 


b.  Core  Thickness 


"c  opt  “ 1,176  [xj 


2/5 


^/2  L, 


■2  , \2/3 


c.  Weight 


opt 


Pi  H Pc  i 

6 + 12 


(i  - *r) 


2 1/2  / 1 75  V 


1.959  Xx2/5  X23/5  + KAD 


\2/3 


(32) 


ill  (33) 


(34) 


Pf  PCR  RCV2  ^ LC^ 


(i  - v/y 


3/4  / 1.75 


and 


X2  » Pc/12 


« ) 


(35) 


617< 
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(36) 


(3  7) 


(38) 


4.  Monocoque  Spherical  Cap 


tf  = 1.20 


CR 


3/7 


U-V)2/7 


1/7 


kcap 


RCAP  (X  - cos  ^CAp) 


Pi  cf 
12 


PCR  “ PAERO  i- 


(W  + WHS)  G 
144 


(39) 


(40) 

(41) 

(42) 


6±3< 
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Ring  Stiffened  Conical  and  Cylindrical  Sections 


pcr(s) 


p (S)  77  ( yD)3/4 14  t5/2  [{2  (2tj  _ u2  f4  Ef 
6 (1  - ij  ) L K2  K1/2  (8 tj  t3  c^4 


(1  - j8/2) 
cos  6^ 

/R 


Ef  cf3 


(i2)  a -v2) 


De  m (N  + l) 


*<9 


<9>0 


N + l 


KjK1^ 2 f8 t3  c4 ] X/4 

K2L  K2  [I2(2t3  - u2)}  V4 


(43) 

(44) 

(45) 

(46) 

(47) 

(48) 

(49) 

(50) 

(51) 

(52) 

(53) 


613< 
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K3 


('-!) 


A /S2  >S2  , 

l~p  +—  + — r - (i-y)U-)3)2 

3 2n2 


L (WHS  + W)  G 
R2  PCR 

(WHS  + W)  G 


^ r,  (WHS  + W)  G J 

K I 1 + sin  6_ 

L " ««)PCR  CJ 


% = lx  - AT  y 2 


mt|,  and  b = nH 
t4 


mC  / H \ 2 / n H + 1£  \ nH(H-2tf)3 

^ + tf  BC2.  + 0 (-  + <f)  ♦ (— ) 


AT  = H (2n  +1)  + mt^ 


— p + tfH(2n  + l)(H/2  + tf) 


(54) 

(55) 

(56) 

(57) 

(58) 

(59) 

(60) 


NL_  sin  8 


Jrpf  tf  (Rj  + R2)  Lq  + 2irHtf  (2n  + 1)  p 


12  7r  (Rj  + R2)  Lq 


(61) 


6.  Monocoque  Tension  Shell 


cf3 


PCR  r3 

ci  ai 


(62) 


C1 


2 

In 

[l  - (R2/R3)2] 


1 + cos 
sin  /3 


-) 


(63) 


w 


(64) 


620< 
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H ( dy\ 

2T  yh 7t)  <*0 

sin  6 \dd/ 


-I 

1728  / 

/0~n/  2 

i /dy\ 
sin  6 \d6/ 


jty 

de 


9-0 


- (R22  - R32) 


2 sin  d 


In  (—  C°S/  ) 
\ sin  /3  y 


“3  c3 


( ln  (llffli) 

..  7p  2 . rn  2 p 2x  \ sina  /' 

y -^R3  +(R2  -Rj) /1+cos  /y 

\ stn  /3  / 


11/2 


7.  Monocoque  General  Tension  Shell 
WTG 

W = 

AG 


/ 


U 

tf  y dy 


f 


y <iy 


(65) 


(66) 


(67) 


(68) 


(69) 


(70) 


(71) 


(72) 


7,-7. 


(73) 
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(74) 


Compression  Ring 


„ 3 "3  t 

Rsc  a + Rsc  \sin  % 


4n2  rr 

WR  - ~mT  tR  (Rc  ~ RR> 


Rc3  1 2ff  (0.3)  t3  at  V3 

1.7  t r */  Ep  Rr  J 


9.  Hot  Structures 


9c  \ He  / + qR  ~ f \1200 


10.  Base  Section 


PCR  = (PCR)aero  + 


Monocoque 


W = . 

* 12 


rt  2 rcr  * (3 +*4 
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Honeycomb 


W 


1 

12 


1 

pc.tc+  ZK  + — Pftf 


Pc 


Z1 


Pi 

16 


1 [PCR  ‘(Rt)25(3  + ^ 

i<r  w 


(83) 


(84) 

(85) 


(86) 


frfVpt 


(87) 


(cc^opt 


Z3 

T 


(PCR  • R^)  (3+v) 


1 16  (fff)  tc 

11.  Yield  Criteria 


a.  Cones,  Cylinders 


(WHS  + W) 

PrTJ  — • G sin 


in  6 J 


b.  Cones 
~PCR 

N<^  “ 2 R cos  0 


[r2  +Rx2  (y  - 1)] 


G (R2  — R2)  (WHS  +W) 
2 R sin  6 cos  6 (144) 


c.  Cylinders 

- PCR  Rc  y G (Lc)  (WHS  + W) 

^ - 535 


(88) 


(89) 


(90) 


(91) 


(92) 
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d.  M-H  Criteria 


Ny2  = V + N^2  - 

e.  Elastic  Yield  Requirements  (sandwich  construction) 
(Ny)  max 


f.  Combined  stress 

(N  ) max 

SIGMH  = 

2tf 

g.  Meridional  stress 

N, 

SIGM  = — 

2tf 


h.  Circumferential  stress 

SIGH  = 

2tf 


(93) 

(94) 

(95) 

(96) 

(97) 


624< 
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IV.  IBM  ROUTINES 


A.  PROGRAM  FLOW 

Given  vehicle  geometry,  structural  material  properties,  and  pressure  loads, 
Program  1886  computes  the  weight  of  the  external  structure  on  each  segment 
of  the  vehicle  which  will  survive  reentry.  The  segments  of  the  vehicle  may 
include  a spherical  nose  cap,  cones,  cylinders,  rear  spherical  cap,  tension 
shell,  and  general  shell.  The  program  flow  diagram  is  shown  in  Figure  8. 


Figure  8 Flow  Diagram  For  Program  1886 
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B.  MAIN  PROGRAM 


1.  Purpose 

The  purpose  of  the  main  program  is  to  acquire  the  program  input,  and  make 
any  necessary  units  conversions  before  transfermg  control  to  the  appropriate 
subroutine  for  the  calculation  of  the  structural  weight. 

2 Method 

Initially  the  types  and  dimensions  of  mam  program  variables  are  specified 
and  common  storage  is  set  up  for  the  transmission  of  data  to  subroutines 
BUCKLE,  MC&N0C,  and  STIFS. 

In  the  first  executable  statements  of  the  program  tables  of  BT  (the  geometric 
Parameter  /3)  and  of  the  dependent  variables  TIT,  T3T,  and  T4T  are  de- 
fined element  by  element  m arithmetic  statements. 

In  the  D0  10  loop  C0MM0N  data  (from  SECTN  through  DELK2)  is  preset  to 
0.  Since  most  of  the  program  input  variables  appear  in  C0MM0N,  this 
loop  zeros  out  a large  portion  of  the  namelist  data.  The  remainder  of  the 
input  is  preset  m the  data  and  arithmetic  statements  immediately  following 
Statement  10, 

The  data  is  read  in  through  the  namelist  array  INPUT  and  immediately 
written  on  the  output  tape.  The  vehicle  radii  are  then  converted  to  inches, 
and  the  angles  to  radians  for  internal  use  If  RB  and  TINIT  have  not  been 
specified,  they  are  taken  to  be  RC  and  TEMPI,  respectively. 

In  the  D0  30  loop  NTAU,  the  number  of  elements  in  the  array  TIME,  is 
calculated  (by  searching  for  the  first  0 beyond  the  first  element  of  the 
array). 

Then  for  each  vehicle  section  specified  in  the  array  SECTN,  the  D0  100 
loop  transfers  control  to  one  of  the  subroutines  BUCKLE,  M0NOC,  or 
STIFS  according  to  the  following  criteria:  if  M0N  > 1,  subroutine  M0N0C 
is  called;  if  MON  <1  and  RSD  > 1,  subroutine  STIFS  is  called;  if  M0N<  1 
and  RSD  <1,  subroutine  BUCKLE  is  called  The  first  value  of  SECTN  <0 
encountered  terminates  the  current  case.  Control  is  then  transferred  back 
to  the  READ  statement  for  processing  the  next  case. 

3.  COMMON  STORAGE 

The  variables  in  COMMON  STORAGE  are  those  input  variables  (with  units 
modified  if  necessary)  which  must  be  transmitted  to  one  of  the  subroutines 
BUCKLE,  MONOC,  or  STIFS.  Unless  a modification  is  specified,  the 
COMMON  variable  is  precisely  the  input  value. 


Variable 


SECTN 

HTST 

HT0P 

GAMFI 

GFTAB 

EFI 

EFTAB 

R0F 

SGFI 

SGFTAB 

GAMRI 

GRTAB 

ER 

R0R 

SGRI 

SGRTAB 

KADHES 

PCR 

TFMIN 

TCM1N 

TCMAX 

R0CMIN 

R0CMAX 

GAMBAR 

CBAR 

WHS 

G 

HS 

EM 

EN 

NFAC 

NTERM 

EPS 

RNI 

RSNI 

THNR 

RAX 

THAR 

THCR 

RBI 

RSBI 

THBR 

RCI 

RSCI 

XL  Cl 


Definition  (if  not  directly  input) 


GAMF 

EF 

SIGCYF 

GAMR 

SIGCYR 


12.  * RN 
12..  RSN 
THN  . {n  /ISO) 

12.  . RA 

THA  • {it  /180) 

THC  • {n  / 180) 

12.  * RB  for  RB>  0;  12.  *RC  for  RB<  0. 
12.  • RSB 
THB  - in  / 180) 

12.  * RC 
12.  • RSC 
12.  -LC 
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12.  *RT 


RTI 
BETA 
A 

TH2G 
TH3G 
R0RG 
SIGRG 
DTHDY 
DELTAU 
EMISTR 
QCMULT 
QRMULT 
XN 
XQ 
XA 
XC 

TEMPI 
TEMPA 
X 
R 

TTAB 
CPTAB 
TIME 
HTBL 
QTBL 
RTBL 

TINIT  L TINIT  if  TINIT>0;  TEMPI  if  TINIT  <0 
TST0P 

NTAU  Number  of  values  in  TIME  array 

DELK1 

DELK2 

JJJ  Index  of  current  vehicle  section 

1C0  SECTN  (JJJ),  ie  identification  of  current  section 

DPC  gambar.cbar 

BT  Table  of  geometric  parameter  /8 

TIT  Table  of  tx 

T3T  Table  of  t3 

T4T  Table  of  t4 

C.  SUBROUTINE  CALLING  SEQUENCES 
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1.  NQSE 
(Cont'd) 


Variable 


Input  or  Output 


Input  or  Output 


R0F 

INPUT 

SIGMH 

OUTPUT 

SGF 

INPUT 

ICHK 

OUTPUT 

GAME. 

INPUT 

OUTPUT 

SGR 

INPUT 

ROR 

INPUT 

TCMX 

INPUT 

TCMN 

INPUT 

TFMN 

INPUT 

R0MX 

INPUT 

R0MN 

INPUT 

ZK 

INPUT 

WHS 

INPUT 

G 

INPUT 

IG0 

INPUT 

TCY 

OUTPUT 

R0C 

OUTPUT 

2.  C0NE 

GAMF 

INPUT 

WHS 

INPUT 

EF 

INPUT 

G 

INPUT 

R0F 

INPUT 

SINTH 

INPUT 

SGF 

INPUT 

C0STH 

INPUT 

GAMR 

INPUT 

IG0 

INPUT 

SGR, 

INPUT 

DELZ1 

INPUT 

R0R 

INPUT 

DELZ2 

INPUT 

PCR 

INPUT 

TCY 

OUTPUT 

DPC 

INPUT 

ROC 

OUTPUT 

ZK 

INPUT 

W0PT 

OUTPUT 

R0MX 

INPUT 

W 

OUTPUT 

R0MN 

INPUT 

WT 

OUTPUT 

TCMX 

INPUT 

TFUSED 

OUTPUT 

TCMN 

INPUT 

TCUSED 

OUTPUT 

TFMN 

INPUT 

SIGMH 

OUTPUT 

BT 

INPUT 

SIGH 

OUTPUT 

TIT 

INPUT 

SIGM 

OUTPUT 

T3T 

INPUT 

ICHK 

OUTPUT 

T4T 

INPUT 

R1 

INPUT 

R2 

INPUT 

| 3.  CYLIND 

RC 

INPUT 

TCY 

OUTPUT 

GAMF 

INPUT 

ROC 

OUTPUT 

EF 

INPUT 

W0PT 

OUTPUT 

R0F 

INPUT 

W 

OUTPUT 
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3.  CYLIND  Variable 

Input  or  Output 

Variable 

Input  or  Output 

(Conol' d)  gGF 

INPUT 

WT 

OUTPUT 

GAMR 

INPUT 

TFUSED 

OUTPUT 

SGR 

INPUT 

TCUSED 

OUTPUT 

R0R 

INPUT 

SIGMH 

OUTPUT 

PCR 

INPUT 

SIGH 

OUTPUT 

DEL 

INPUT 

SIGM 

OUTPUT 

R0MN 

INPUT 

ICHK 

OUTPUT 

R0MX 

INPUT 

TCMN 

INPUT 

TCMX 

INPUT 

TFMN 

INPUT 

ZK 

INPUT 

DPC 

INPUT 

WHS 

INPUT 

G 

INPUT 

DELKl 

INPUT 

DELK2 

INPUT 

~ 4.  BASE  | 

RT 

INPUT 

ROC 

OUTPUT 

GAMF 

INPUT 

ICHK 

OUTPUT 

R0F 

INPUT 

R0R 

INPUT 

SGF 

INPUT 

SGR 

INPUT 

PCR 

INPUT 

R0MX 

INPUT 

R0MN 

INPUT 

TCMX 

INPUT 

TCMN 

INPUT 

TFMN 

INPUT 

ZK 

INPUT 

WHS 

INPUT 

G 

INPUT 

W0PT 

OUTPUT 

W 

OUTPUT . 

WT 

OUTPUT 

TFUSED 

OUTPUT 

TCUSED 

OUTPUT 

| 5.  TENSION  ! 

BETA 

INPUT 

RC 

INPUT 

RSC 

INPUT 

RSN 

INPUT 

RN 

INPUT 

7.  RING  Variable 

(Concl'd)  ER 

SIGRG 

RC 

SIGCYF 

RORG 

WR 

RR 

TR 

WSCST 

8.  HOTSTR  Variable 

XN 

XO 

XC 

XA 

TTAB 

TEMPI 

NTAU 

TAU 

TAUMAX 

QC 

QR 

HGORT 

FR 

FC 

CPTAB 

DELTAU 

EMISS 

TEMPA 

EPS 

TAUT 

TW 


In-put  or  Out-put 


INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

Input  or  Output 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

OUTPUT 

OUTPUT 


Input  or  Output 


W INPUT 

WSTAR  OUTPUT 
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b.  Method 


Subroutine  BUCKLE  receives  all  of  its  input  data  from  the  mam 
program  through  CJ0&IM0N.  It  does  not  redefine  any  of  this  data,  or 
transmit  any  information  back  to  the  main  program. 

At  the  first  executable  statement  of  BUCKLE  the  variable  ICHK  is  set 
to  1234  5.  Any  subsequent  change  m ICHK  will  be  an  indication  of 
computational  difficulty,  and  appropriate  action  will  be  taken  to  inform 
the  user  of  the  situation  {error  messages  and  the  deletion  of  further 
computation  on  the  particular  section).  PI  is  defined,  and  the  identi- 
fication number  of  the  current  section  is  written  on  the  output  tape, 
logical  tape  6. 

There  are  two  possible  paths  for  the  computation  to  take,  depending 
on  whether  or  not  the  section  is  to  be  run  under  the  hot  structures 
option  (for  which  HTST  is  input  as  1 . ) 

If  HTST  £ 1,  control  is  transferred  immediately  to  statement  250 
where  a computed  G0  T0  on  the  section  number  picks  the  correct 
method  of  computing  the  weight.  For  all  sections  but  ton  the 
appropriate  data  is  supplied  to  one  of  the  subroutines  NOSE,  CONE, 
TENSON,  GNRLSH,  CYLIND,  or  BASE  which  will  carry  out  the 
actual  computation.  For  the  ton,  which  cannot  in  reality  be  handled 
by  the  program,  the  unit  section  weight  is  taken  as  the  weight  of  the 
immediately  preceding  section;  however,  this  weight  is  then  multiplied 
by  the  torus  area  m finding  the  total  weight.  The  weights,  face  sheet 
and  core  thicknesses,  and  core  densities  are  placed  in  arrays  from 
which  they  are  finally  printed  on  the  output  tape.  For  tori  the  weights 
are  printed  between  statements  21  and  25,  and  return  is  made  to  the 
main  program.  For  the  other  sections  the  block  of  statements 
between  255  and  2684  provides  for  writing  all  the  output.  This  block 
is  entered  either  at  statement  255  or  260  after  the  return  from  the 
particular  section  subroutine.  The  computed  G0  T£>  at  26l  controls 
setting  up  the  correct  headings  to  print  only  the  information  applicable 
for  a particular  section.  The  IF  test  at  statement  2645  checks  for  non- 
convergence of  the  weight  iteration.  If  nonconvergence  is  detected,  an 
error  message  is  written.  Return  is  then  made  to  the  main  program. 

In  the  case  of  a hot  structure  not  only  does  the  final  weight  depend 
upon  the  temperature  rise  computed  by  the  program,  but  the  material 
properties  used  in  the  honeycomb  analysis  are  themselves  a function  of 
temperature.  This  second  dependence  makes  an  iterative  scheme 
necessary  to  handle  the  weight  computation.  The  numerical  method 
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used  is  standard  false  position  applied  to  the  temperature,  the  initial 
guesses  being  TINIT  and  TEMP  A.  To  ensure  convergence  it  is 
necessary  that  the  actual  temperature  lie  between  TINIT  and  TEMP  A. 
(If  TINIT  is  not  specified,  it  is  taken  to  be  TEMPI.)  At  Statement 
230  the  temperature  TEMP  is  set  to  TINIT  to  start  the  process.  Then 
NN  (the  number  of  iterations),  WQ,  and  FTMP1  are  initialized.  At 
245  the  material  properties  corresponding  to  TEMP  are  looked  up  m 
tables  EFTAB,  SGFTAB,  GFTAB,  GRTAB,  and  SGRTAB,  and  control 
is  transferred  to  the  appropriate  subroutine  for  a weight  computation. 
After  a transfer  back  to  260  the  hot  structures  option  switches  control 
to  269  where  subroutine  H0TSTR  calculates  the  maximum  temperature 
TWMAX  and,  if  necessary,  the  increased  weight  WQ.  After  the 
return  form  H0TSTR  an  IF  test  checks  the  difference  between  the 
original  temperature  TEMP  and  TWMAX.  If  the  relative  difference 
is  less  than  1 percent  the  iteration  is  terminated  immediately,  and 
control  is  passed  to  the  output  block  at  Statement  261.  If  the 
difference  is  greater  than  1 percent,  control  is  passed  back  to 
Statement  240  where  NN  is  updated.  The  statements  following  240 
provide,  in  general  for  saving  the  last  two  temperature  estimates 
TMFL  and  TMP2  which  bracket  the  root,  along  with  the  differences 
FTMP1  and  FTMP2  between  these  estimates  and  their  corresponding 
values  of  TWMAX.  On  this  first  pass  TMP1  and  FTMP1  are  pre- 
sumably set  to  TINIT  and  TINIT- TWMAX.  A second  pass  is  then 
made  through  the  entire  computation  sequence  with  TEMP  set  to  the 
value  TEMP  A.  At  242  TMP2  will  be  set  to  TEMP  A and  FTMP2  to 
TEMP  A- TWMAX.  Then  the  false  position  algorithm  computes  a new 
projected  temperature  from  TMP1,  TMP2,  FTMP1 , and  FTMP2  at 
statement  2425,  and  tests  to  make  sure  that  TEMP  A is  not  exceeded. 

(A  value  of  TEMP>TEMPA  results  m an  error  message  and  return  to 
the  main  program.)  The  iteration  now  continues  until  the  relative 
difference  between  TEMP  and  TWMAX  is  less  than  1 percent.  The 
results  are  then  printed  and  a return  is  made  to  the  main  program. 

(If  convergence  has  not  occurred  within  10  iterations,  the  process  is 
terminated  and  the  last  values  printed  out.) 

2.  Subroutine  M0N0C 


a.  Purpose 

The  purpose  of  subroutine  M0N0C  is  to  calculate  the  structure 
weights  of  those  sections  having  a monocoque  construction  and  to 
provide  the  program  output  for  these  sections. 

b.  Method 

Subroutine  M0N0C  receives  all  of  its  input  data  from  the  mam  program 
through  C0MM0N  . It  does  not  redefine  any  of  this  data,  or  transmit 
any  information  back  to  the  main  program. 
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Like  BUCKLE  subroutine  M0N0C  can  be  called  either  with  or  without 
the  hot  structures  option.  However,  unlike  BUCKLE,  M0N0C  can 
handle  a vehicle  section  only  if  it  is  a spherical  cap  or  flat  base  (i.e. 
one  of  Sections  1,  12,  or  13). 

If  HTST  1,  there  is  a single  level  search  performed  for 
the  weight,  taking  account  of  the  inertia  of  the  heat  shield  and  structure 
After  the  section  number  has  been  written  out,  control  switches  down 
to  Statement  250  where  an  initial  value  of  the  unit  weight  WSTAR  is 
computed  using  minimum  gage  thickness,  and  NIT,  the  number  of 
iterations,  is  initialized.  The  computed  G0  T0  on  the  section,  number 
results  m an  error  message  and  return  for  any  section  other  than 
1,  12,  or  13. 

For  the  nose  sphere  or  aft  sphere  the  radius  R,  the  shell  height  H, 
and  a sign  factor  PFAC  are  set  at  statements  1 and  12,  respectively. 
For  either  of  these  sections  transfer  is  then  made  to  Statement  300 
where  SMATM,  an  expression  appearing  m the  pressure  computations, 
is  calculated,  and  the  face  sheet  thickness  SMAT  is  set  initially  to 
minimum  gage.  The  search  method  between  Statements  400  and  6 00, 
looks  for  a change  of  sign  (from  positive  to  negative)  of  the  expression 
PCR-PTEST.  Until  such  a change  is  detected,  the  statements  are 
repeated  with  SMAT  being  increased  by  the  factor  EPSP1  (l  +f).  A 
value  of  WSTAR  is  computed  to  correspond  to  each  SMAT.  (A  maxi- 
mum of  500  such  increases  m SMAT  is  allowed  before  an  error 
message  and  return  terminates  calculations  for  the  section.)  Once 
the  sign  change  has  been  detected,  a final  value  of  pressure  P and 
yield  thickness  TY  are  calculated  beginning  at  Statement  750.  The 
final  thickness  is  taken  as  the  maximum  of  SMAT  and  TY,  and  WSTAR 
is  again  computed  using  this  maximum.  The  total  weight  W and  yield 
stress  criteria  SIGMH  are  then  computed.  Transfer  is  made  to 
Statement  850  for  the  printout  of  results  and  return  to  the  main  program 

In  the  case  of  a flat  base  a first  order  iteration  scheme  is  used  to 
compute  the  unit  weight  rather  than  a search.  The  radius  R is  set  to 
RT,  and  the  initial  estimate  for  WSTAR  (using  minimum  gage  thick- 
ness) is  stored  in  Wl . W1  will  be  used  to  keep  track  of  the  last 
previous  iterate,  and  thus  updated  on  each  pass.  The  pressure  and 
face  sheet  thickness  are  computed.  An  IF  test  ensures  that  the 
thickness  is  at  least  minimum  gage,  and  a new  weight  WSTAR  is 
calculated  at  Statement  132.  If  the  relative  difference  between  Wl 
and  WSTAR  is  less  than  1 percent,  the  last  value  of  WSTAR  is  taken 
as  the  unit  weight  and  a transfer  is  made  to  Statement  137  for  the 
computation  of  the  total  weight,  printout  of  results,  ahd  return  to  the 
main  program.  If  the  difference  is  greater  than  1 percent  transfer 
is  made  back  to  Statement  130  for  the  next  iteration.  Failure 
attain  convergence  within  25  iterations  results  in  an  error  message  at 
Statement  136  and  return  to  the  mam  program. 
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J£  HTST  = 1,  the  same  false  position  iteration  scheme  used  in  sub- 
routine BUCKLE  finds  the  weight  as  a function  of  temperature.  This 
iteration  is  performed  outside  the  iteration  or  search  described 
above,  thus  making  the  entire  iterative  scheme  a two-level  process. 
The  call  to  subroutine  H0TSTR.  is  now  at  Statement  810. 

3.  Subroutine  STIFS 


a.  Purpose 

The  purpose  of  subroutine  STIFS  is  to  calculate  the  structure  weights 
of  those  sections  having  a ring- stiffened  construction,  and  to  provide 
the  program  output  for  these  sections. 

b . Method 

Subroutine  STIFS  receives  all  of  its  data  from  the  mam  program  through 
CQ&MM0N.  It  does  not  redefine  any  of  this  data,  or  transmit  any 
information  back  to  the  main  program. 

STIFS  can  be  called  with  or  without  the  hot  structures  option.  It 
handles  a vehicle  section  that  is  a cone, cylinder,  flare  forecone,  or 
aftcone  {Sections  3,  7,  8,  11).  At  Statement  200  a computed  GQ$  T0 
tests  that  the  current  section  is  indeed  one  of  these  four.  If  not,  a 
transfer  to  Statement  2000  results  m an  error  message  and  immediate 
return  to  the  main  program.  If  the  section  can  be  handled,  values  of 
Rl,  R2,  RTHETA,  and  XKFAC  are  calculated  from  the  appropriate 
geometry  parameters,  beginning  at  one  of  the  Statements  5551,  5552, 
5553,  or  5554.  Transfer  is  then  made  to  Statement  5555  where  several 
variables  depending  on  the  vehicle  geometry  are  calculated,  and  the 
section  number  and  a heading  are  written  out.  The  program  flow 
beyond  Statement  65  depends  upon  whether  or  not  the  section  is  a hot 
structure,  and  whether  HT0P  has  been  specified  as  1.  or  2. 

Consider  first  the  case  HTST  =0,  HT$P  = 1.  The  object  will  be  to 
find  a thickness  (t)  satisfying  both  local  and  general  stability  conditions 
and  a number  (N)  of  rings  which  will  minimize  the  structure  weight. 
Since  the  inertia  of  the  heat  shield  and  structure  are  to  be  taken  into 
consideration,  an  iterative  method  is  again  necessary  m the  weight 
calculations.  In  STIFS  this  iteration  is  carried  out  for  each  number 
(N)  of  rings  considered. 

Since  HTST^s  0,  the  test  following  Statement  65  transfers  control  down 
to  68  where  N,  the  current  number  of  rings,  is  set  to  1 (although  the 
N = O case  will  actually  be  handled  first),  and  the  control  parameters 
ITEST  and  1G0T0  are  initialized  to  1.  Since  HT0P  = 1,  H is  set  to 
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the  input  value  HS.  Between  Statements  683  and.  9 an  additional 
block  of  variables  is  initialized  including  TLi  the  thickness  required 
for  local  stability,  TG  the  thickness  required  for  general  stability, 
and  SMAT,  which  is  always  the  current  thickness  being  used  in  the 
calculations.  The  block  of  statements  between  9 and  15  performs 
the  major  computations  of  the  routine. 

Initially  the  case  N = O is  considered.  (The  routine  recognizes  this 
case  by  the  fact  that  ITEST  is  still  1.)  The  computed  GQ>  TQJ  before 
Statement  155  transfers  control  to  155  where  PAS,  the  pressure  just 
computed  at  Statement  15  is  tested  against  the  input  value  PA(PCR). 

If  PA>PAS,  TG  is  increased  by  the  factor  EPSP  (1.  + EPS),  SMAT  is 
set  equal  to  TG  and  a transfer  back  to  statement  12  begins  a repetition 
of  the  computations . The  loop  thus  formed  is  retraced  until  finally 
PAS  > PA,  the  variable  M keeping  track  of  the  number  of  iterations. 

At  Statement  17  the  total  weight  WN  and  the  unit  weight  WSTAR  are 
calculated  as  a function  of  the  current  TG. 

The  computed  G0T0  at  Statement  20  transfers  control  to  28  since 
IG0T0  is  still  1.  Here  the  first  order  iteration  procedure  necessitated 
by  structural  inertia  considerations  tests  for  convergence  of  the  unit 
weight  WSTAR.  WSTAR  is  compared  with  Wl,  the  last  previous 
iterate.  (Wl  was  initialized  to  0.  just  after  Statement  5555  to  take 
care  of  the  first  pass.)  Ten  iterations  are  allowed  for  obtaining 
convergence  of  the  weight.  On  each  iteration  the  looping  process  to 
obtain  TG  is  repeated.  The  transfer  back  to  statement  85  ensures 
that  all  the  necessary  reinitialization  is  included.  Convergence  is 
defined  as  a relative  difference  of  less  than  1 percent  between  Wl  and 
WSTAR.  If  convergence  is  not  reached  within  10  iterations,  an  error 
message  is  written  at  Statement  295,  and  return  is  made  to  the  main 
program.  If  convergence  is  attained,  IGQ5T$  is  reset  to  2 at  Statement 
301. 

The  block  of  statements  between  302  and  312  calculates  the  yield 
stress  criteria.  If  the  section  is  one  of  the  cones,  its  entire  length 
must  be  searched  for  the  point  of  maximum  allowable  stress  XNYMAX. 
XNYMAX  is  initially  set  to  0,  and  R to  R2,  the  largest  value  of  the 
cone  radius.  In  the  DO  305  loop  a value  of  XNY  is  calculated  at  each 
of  10,  equally- spaced  points  along  the  length  of  the  cone  as  R decreases 
to  Rl,the  smallest  cone  radius.  XNYMAX  is  defined  as  the  maximum 
of  the  10  XNY  values  obtained  in  the  loop.  Values  of  XNTH  and  XNPHI 
to  be  used  m evaluating  the  stress  components  are  also  calculated 
corresponding  to  XNYMAX.  If  the  section  is  a cylinder,  XNTH, 

XNPHI,  and  XNYMAX  are  evaluated  directly.  In  either  case  TCY,  the 
minimum  thickness  satisfying  yield  requirements,  is  calculated  at 
Statement  308,  and  tested  against  TG.  If  TCY>TG,  TG  is  reset  to 
TCY,  and  the  weights  must  be  recalculated  at  Statement  17  to 
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correspond  to  the  new  thickness.  In  this  case  the  computed  G£)T0 
brings  control  back  to  Statement  312  since  IG0T0  is  now  2.  Here 
the  stress  component  calculations  are  completed,  the  minimum  weight 
WGTMIN  is  set  to  the  current  weight  value,  TL  is  set  equal  to  TG, 
and  the  N = O results  are  printed.  (ISW  'was  set  to  1 following 
Statement  5555,  since  HTST  = O). 

At  321  the  N = 1 case  is  begun.  -(Statement  32  which  ordinarily  will 
compute  the  next  N is  skipped  since  N was  set  to  1 at  the  beginning 
of  the  routine.)  The  IF  test  on  DN  checks  to  see  that  the  maximum 
number  of  rings  is  not  exceeded.  Initializations  are  completed,  ITEST 
is  set  to  2 and  IG0T0  to  3,  and  control  is  transferred  back  to  the 
computation  block  at  Statement  10.  The  computed  G0T$  with  ITEST 
= 2 chooses  the  test  at  Statement  16.  This  test  and  the  statements 
starting  at  Statement  36  decrease  TE  (which  was  set  to  the  TG 
obtained  for  the  last  N)  by  the  factor  EPSM**M{(1 . -EPS)M),  until 
PA  > PAS  or  TL<  TM.  The  weights  are  then  computed  at  Statement 
17,  and  the  transfer  to  Statement  37  (IG0T0  = 3)  sets  up  conditions 
for  the  general  stability  calculations.  By  the  time  the  transfer  back 
to  Statement  9 takes  place  ITEST  has  been  reset  to  1 and  IG$T0 
to  4.  The  same  general  stability  loop  is  repeated  as  in  the  O-nng 
case,  TG  being  increased  by  EPSP  until  PAS  > PA. 

The  transfer  from  Statement  20  is  now  to  Statement  39  where  the  first 
order  iteration  is  begun  for  the  N = 1 case.  Both  the  TE  and  TG 
loops  must  be  repeated  for  each  iteration,  as  is  indicated  by  the 
transfer  to  Statement  322  each  time  the  relative  difference  between 
W1  and  WSTAR  is  greater  than  1 percent.  When  convergence  has 
been  attained,  the  stress  calculations  are  repeated  starting  at  State- 
ment 302,  but  with  IG0T0  now  5.  Thus,  when  the  stress  calculations 
have  been  completed,  the  test  on  IG0T0  before  Statement  318  brings 
control  down  to  Statement  397  where  the  current  weight  is  tested 
against  WGTMIN  the  running  minimum.  WGTMIN  is  reset  if  the 
current  WN  is  smaller.  The  results  for  N = 1 are  printed,  and  the 
computations  for  the  next  N are  begun  at  statement  32  where  N is 
calculated  as  a function  of  its  current  value  and  the  input  parameters 
NFAC  and  NTERM. 

The  computations  are  repeated  in  this  same  manner  for  each  new  N 
until  N exceeds  the  maximum  allowable  value  XL$/EM/TG.  Then 
at  Statement  43  the  current  minimum  weight  is  taken  as  the  final 
result.  The  unit  and  total  weights  are  printed  at  statement  44,  and 
return  is  made  to  the  main  program. 

If  HT0P  = 2,  the  stiffener  height  (H)  is  intialized  to  1 . at  Statement 
682  before  the  computations  begin.  The  N = O calculations,  and  the 
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iterations  for  TL  when  N>0  proceed  exactly  as  m the  HT0P  =s  1 case. 
However,  when  N>1  and  the  general  stability  calculations  are  set  up 
starting  at  Statement  37,  ITEST  is  set  to  3 instead  of  1.  The  computed 
G0T0  in  the  calculation  block  picks  the  test  at  163.  The  object  now 
is  to  find  the  value  of  H for  which  PA  = PAS.  If  initially  PA>PAS, 
ITEST  is  set  to  5 and  H is  increased  by  the  factor  EPSP  until  a change 
of  sign  in  PA-PAS  occurs.  (On  the  second  and  succeeding  passes 
the  test  at  168  is  used.)  If  initially  PA<  PAS,  ITEST  is  set  to  4,  and 
H is  decreased  by  the  factor  EPSM  until  a sign  change  in  PA- PAS 
is  detected.  (On  the  second  and  succeeding  passes  the  test  at  169  is 
used. ) Then  the  weight  is  calculated  at  Statement  17  as  m the  HT0P 
= 1 case.  The  remainder  of  the  program  logic  is  not  affected  by 
HT0P. 

In  cases  where  HTST  = 1 false  position  iteration  on  the  temperature 
is  used  m the  weight  calculations  as  m subroutines  BUCKLE  and 
M0N0C.  This  iteration  is  performed  outside  all  the  other  computations 
carried  out  by  the  routine.  The  iteration  loop  itself  extends  from 
statement  67  to  the  IF  test  at  577.  The  variable  ISW  which  has  the 
value  2 initially,  suppresses  the  printing  of  results  until  convergence 
has  been  achieved.  Then  the  final  iteration  is  repeated  with  ISW 
reset  to  1 to  obtain  the  printout. 
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4.  Subroutine  NQfrSE 


a.  Purpose 

The  purpose  of  subroutine  NGiSE  is  to  calculate  the  honeycomb  structure 
weights  for  the  nosesphere  and  aftsphere  sections  (Sections  1 and  12) 
of  the  vehicle  when  specific  geometry  conditions  and  material  properties 
are  given. 

b.  Method 

First  order  iteration  is  used  to  compute  the  weight,  taking  into  account 
the  inertia  of  the  heat  shield  and  structure.  This  iteration  starts  at 
Statement  800  after  several  terms  that  are  to  be  constant  during  the 
looping  process  have  been  calculated,  and  the  weights  W and  WG$PT  and 
the  number  of  iterations  NIT  have  been  initialized  to  0.  At  800  W1 
which  will  be  the  value  of  the  last  previous  iterate  is  set  equal  to  W. 

Then  the  pressure  P,  depending  on  W,  is  calculated  and  its  sign  tested. 

If  P < 0,  the  face  sheet  thickness  and  core  height  are  taken  as  minimum 
gage.  The  weight  (W),  total  weight  (WT),  and  yield  stress  criteria 
(SIGMH)  are  computed,  and  an  immediate  return  to  the  calling  routine 
is  executed. 

If  P > 0,  the  iteration  continues.  The  core  density  (R$C)  is  calculated, 
and  tested  to  make  sure  that  it  lies  between  the  minimum  and  maximum 
values  specified  in  the  program  input.  If  R0C  < R<#MN  (R0CMIN),  it 
is  set  to  ROiMN;  if  R0C  > RC&VtX  (R0CMAX),  it  is  set  to  R0MX.  Then 
TCY  the  face  sheet  thickness  required  to  satisfy  yield  criteria  is  com- 
puted. TESTl  is  defined  as  the  larger  of  TCY  and  TFMN  (TFMIN). 

Next  TFC^PT,  the  optimum  face  sheet  thickness  satisfying  buckling 
criteria  is  computed  and  compared  with  TESTl. 

Case  (1).  TFC^PT  > TEST1 

Control  is  transferred  to  Statement  6 for  the  computation  of  TC0PT, 
the  optimum  core  height.  TCC^PT  is  then  checked  to  ensure  that 
it  lies  between  TCMN  (TCMIN)  and  TCMX  (TCMAX). 

a.  TCMN  < TC$PT  < TCMX 

TFUSED  and  TCUSED  are  set  to  TFC#PT  and  TCC^PT,  re- 
spectively, and  the  weight  is  computed  as  WG$PT.  (This  is 
the  only  case  m which  WC^PT  is  computed,  and  only  if  the 
final  iteration  computes  a value  of  W(#PT  will  a nonzero  WG$PT 
be  returned  to  the  calling  routine.)  W is  set  equal  to  WG$PT 
and  transfer  is  made  to  Statement  103. 
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b.  TC$PT  < TCMN 


A value  TF  of  the  face  sheet  thickness  is  computed  as  a 
function  of  TCMN  at  Statement  7.  T FUSED  is  defined  as  the 
larger  of  TF  and  TEST1,  and  TCUSED  is  set  to  TCMN.  The 
weight  (W)  is  then  computed  as  a function  of  TFUSED  and 
TCUSED  at  Statement  100. 

c.  TC0PT  > TCMX 

TFUSED  is  set  to  TFC^PT  and  TCUSED  is  set  to  TCMX  at 
Statement  14.  Then  W is  computed  as  a function  of  TFUSED 
and  TCUSED  at  Statement  100. 

Case  (2).  TFCZPT  < TEST1 

TFUSED  is  set  to  TEST1  at  Statement  16.  TCUSED  is  computed 
as  a function  of  TFUSED, then  redefined  as  TCMN  or  TCMX  if  it 
lies,  respectively,  below  or  above  the  allowable  range.  (W)  is 
then  calculated  at  Statement  100. 

In  all  cases  the  relative  difference  between  W and  W1  is  checked  at 
Statement  103.  If  this  difference  is  less  than  1 percent,  the  iteration 
is  terminated,  the  total  weight  (¥T)  and  the  yield  stress  criteria 
(SIGMH)  are  computed,  and  a return  to  the  calling  routine  is  executed. 

If  the  difference  is  greater  than  1 percent,  the  number  of  iterations  NIT 
is  updated  at  Statement  105,  and  tested  against  10.  If  NIT  < 10,  a new 
iteration  is  begun  at  Statement  800.  If  NIT  > 10,  ICHK  is  set  to  1 as  an 
error  indication,  and  the  last  results  obtained  are  returned  to  the 
calling  routine. 

5 Subroutine  C(#NE 


a.  Purpose 

The  purpose  of  subroutine  C(#NE  is  to  calculate  the  honeycomb  structure 
weights  for  the  cone,  flare  fore  cone,  and  aftcone  sections  (Sections 
3,  8,  and  11)  of  the  vehicle,  when  specific  geometry  conditions  and 
material  properties  are  given. 

b . Method 

Subroutine  CQ5NE  uses  the  same  first  order  iteration  scheme  used  m 
NG$SE,  and  the  same  logical  procedure  for  obtaining  the  final  values  of 
TFUSED  and  TCUSED.  (See  the  description  of  subroutine  N(#SE  for 
details.)  As  far  as  program  flow  is  concerned,  the  major  difference 
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between  the  two  routines  lies  in  the  calculation  of  the  maximum  allowable 
stress  XNYMAX.  Immediately  after  Statement 800  (the  beginning  of  the 
iteration  loop),  XNYMAX  is  initialized  to  0.  , and  R set  to  R2,  the 
maximum  value  of  the  cone  radius.  In  the  DC#  805  loop  a value  of  XNY 
is  calculated  at  each  of  10  equally -spaced  points  along  the  length  of  the 
cone  as  R decreases  to  Rl,  the  minimum  cone  radius*  XNYMAX  is 
defined  as  the  maximum  of  the  10  XNY  values  obtained  m the  loop. 

For  the  cones  the  circumferential  stress  (SIGH)  and  the  meridional 
stress  (SIGM)  are  calculated  m addition  to  the  resultant  yield  stress 
criteria  (SIGMH)  (XNYMAX/(2.  TFUSED)). 

6.  Subroutine  CYLIND 


a.  Purpose 

The  purpose  of  subroutine  CYL.IND  is  to  calculate  the  honeycomb 
structure  weight  for  the  cylindrical  section  (Section  7)  of  the  vehicle, 
when  specific  geometry  conditions  and  material  properties  are  given. 

b.  Method 

The  logical  flow  of  subroutine  CYLIND  is  essentially  identical  to  that 
of  subroutine  N(#SE.  The  first  order  iteration  loop  extends  from 
Statement  3 to  the  G(#  T<#  3 statement  following  250.  No  loop  is  re- 
quired for  the  calculation  of  the  yield  stress  criteria  as  m CYBIND. 
However,  the  circumferential  stress  SIGH  and  the  meridional  stress 
SIGM  are  computed  along  with  SIGMH  before  the  return  to  the  calling 
routine . 

7.  Subroutine  BASE 


a.  Purpose 

The  purpose  of  subroutine  BASE  is  to  calculate  the  honeycomb  structure 
weight  for  the  BASE  section  (Section  13)  of  the  vehicle,  when  specific 
geometry  conditions  and  material  properties  are  given. 

b.  Method 

The  first  order  iteration  scheme  is  the  same  as  m subroutine  N<#SE. 

The  iteration  loop  starts  at  Statement  800  and  ends  at  240.  However, 
the  procedure  for  obtaining  TFUSED  and  TCUSED  is  somewhat  simpler 
since  no-face  sheet  thickness  is  computed  to  satisfy  yield  criteria. 
TFUSED  is  defined  on  each  iteration  as  the  larger  of  TF0PT  and  TFMN 
(TFMIN).  TCUSED,  after  being  calculated  as  a function  of  TFUSED, 
is  tested  against  TCMN  (TCMIN)  and  TCMX  (TCMAX).  If  TCUSED  < 
TCMN  it  is  redefined  to  be  TCMN;  if  TCUSED  > TCMX,  it  is  redefined 
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as  TCMX.  In  either  of  these  two  cases  TFUSED  is  then  redefined  to 
correspond  at  Statement  9. 

8.  Subroutine  TENSQfof 


a.  Purpose 

The  purpose  of  subroutine  TENSQ5N  is  to  compute  the  structural  weight 
and  area  of  the  tension  shell  (Section  4). 

b.  Method 

Simpson’s  rule  is  used  to  calculate  the  total  weight  WTT  and  the  area 
AT.  In  the  DO  60  loop  the  integrands  W and  A are  calculated  at  25 
equally- spaced  points  between  the  initial  angle  BETA  and  v /2 . Sub- 
routine ARSIMF  is  then  called  twice  to  apply  the  Simpson's  Rule  formula. 
The  unit  weight  WTENST  is  calculated  as  the  total  weight  divided  by  the 
area,  and  subroutine  RING  is  called  to  obtain  the  structural  weight 
thickness  and  radius  of  the  compression  ring.  Return  is  then  made  to 
the  calling  routine. 

9.  Subroutine  GNRBSH 


a.  Purpose 

The  purpose  of  subroutine  GNRESH  is  to  compute  the  structural  weight 
and  area  of  the  general  shell  (Section  5). 

b.  Method 

The  Trapezoidal  rule  is  used  to  calculate  the  total  weight  WTG  and  the 
area  AG.  In  the  3 -statement  loop  starting  at  Statement  10  the  number 
of  values  of  the  coordinates  X and  Y which  have  been  input  are  counted. 
The  counting  procedure  assumes  that  a 0.  follows  the  last  value  of  the 
Y array.  (Therefore,  special  care  must  be  taken  m stacking  cases). 
Between  Statements  123  and  60  an  array  AFUNCT  of  integrands  for  the 
area  and  an  array  WFUNCT  of  integrands  for  the  total  weight  are 
generated.  (Each  element  m these  arrays  corresponds  to  a point  m the 
original  X and  Y arrays.  ) The  trapezoidal  rule  is  applied  to  AFUNCT 
and  WFUNCT  m the  5 statements  starting  at  61.  The  results  of  the 
integration  WTG  and  AG  are  multiplied  by  appropriate  factors,  and  the 
unit  weight  WGENST  is  calculated.  A call  to  subroutine  RING  obtains 
the  structural  weight,  thickness,  and  area  of  the  compression  ring. 
Return  is  then  made  to  the  calling  routine. 
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10.  Subroutine  RING 


a.  Purpose 

The  purpose  of  subroutine  RING  is  to  compute  the  structural  weight, 
thickness,  and  radius  of  the  compression  ring. 

b.  Method 

Straightforward  evaluation  of  the  formulas  m arithmetic  statements. 
11.  Subroutine  H0TSTR 


a.  Purpose 

The  .purpose  of  subroutine  H0$TSTR  is  to  compute  the  maximum 
structural  temperature  TWMAX,  and  increase  the  structure  weight 
if  necessary  to  ensure  that  TWMAX  is  no  greater  than  the  input  value 
TEMPA. 

b.  Method 

Starting  with  W supplied  by  the  calling  routine,  the  initial  temperature 
TEMPI,  and  the  initial  time  value  TAU(l)  (input  as  TIME  (1)),  the 
routine  calculates  the  temperature  rise  DELTAT  in  successive  in- 
tervals of  time  (each  of  length  DELTAU).  The  heating  factors  QCI, 
QRI,  and  HG0RI  which  are  used  in  the  expression  for  DEETAT  are 
looked  up  m tables  QC,  QR,  and  HG$RT  (input  as  QTBL,  RTBL,  and 
HTBL,  respectively)  for  each  new  point  in  time.  Should  TAUMAX 
(TST0P)  be  specified  as  larger  than  the  final  value  of  the  TAU  table, 
these  heating  factors  are  set  to  0.  in  the  region  beyond  the  ends  of 
the  tables. 

After  DELTAT  has  been  computed,  its  sign  is  tested  to  check  for  a 
change  from  positive  to  negative,  signifying  a maximum  temperature 
point.  If  DELTAT  is  initially  negative,  two  sign  changes  must  be 
encountered  before  it  is  assumed  that  the  maximum  temperature  has 
been  found.  The  computed  G(#  T(#  controlled  by  IDEL  at  Statement 
40  handles  such  a case. 

If  a particular  value  of  DELTAT  is  positive,  of  if  DELTAT  is  negative, 
but  there  has  been  no  previous  positive  value,  the  current  time  TAUT 
in  increased  by  DELTAU,  and  checked  to  make  sure  that  it  is  less 
than  TAUMAX. 
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If  TAUT  < TAUMAX,  TW  the  current  temperature  is  computed  at 
Statement  60,  and  checked  against  TEMPA.  If  TW  < TEMPA,  the 
transfer  to  Statement  25  continues  the  process  at  the  new  time  value. 
If  TW  _>  TEMPA,  WSTAR,  the  current  weight,  is  increased  by  the 
factor  EPSPI  (1.  + EPS),  and  the  process  is  restarted  at  the  initial 
point  in  time  and  temperature. 

If  TAUT  > TAUMAX,  (l.  e.  , no  maximum  is  found  within  the  specified 
time  interval),  the  temperature  and  weight  at  the  final  time  point  are 
taken  as  the  result.  A return  to  the  calling  routine  is  executed. 

When  a change  m the  sign  of  DELTAT  from  positive  to  negative  is 
detected,  an  immediate  return  is  made  to  the  calling  routine  with  the 
current  values  of  weight,  time,  and  temperature. 

SIGNIFICANT  EQUATIONS 


1 . MAIN  Program 
DPC  = GAMBAR  . CBAR 

2.  BUCKLE 

TEMP  = TMP1  - FTMP1 


/ TMP1  - TMP2  "N 
\FTMP1  - FTMP2  / 


(False  position  algorithm  for  hot  structures  temperature  iteration.  ) 

3.  MQSN0C 

/ TMP1  -TMP2  \ 

TEMP  = TMP1  - FTMP1  

y FTMPl  - FTMP2  j 

a.  Spherical  Caps 

nose  sphere  R = RN  H = R (1  — sin(THN)) 

aftsphere  R = RA  H = R(1  + sm(THA)) 

7/3 


PTEST 


(WHS  + WSTAR)G 


144 


+ E 


/ SMAT  \?/ 
ySMATM  / 


where  SMAT  is  the  current  tf. 
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R 


SMATM  = 1 2 (1  - XNU2)2/7 


WSTAR  = 


RH0  • SMAT 


12 

„ ™ (WHS  + WSTAR)  G 

P = PCR  + 

144 


TY 


P ♦ R 
2 • SGF 


SIGMH  = 


PCR  + 


(WHS  + WSTAR)  G 
1 44 


R 

T"-  SMAT 


WSAR  (2ff)  H • R 
144 


b.  base 

(WHS  + WSTAR)  G 

P = PCR  + - 

144 


SMAT 


0.375  (R)2  P0+XNU) 
SGF 


"1 1/2 


WSTAR 


RH0  ■ SMAT 
12 


W 


WSTAR  n-R2 
144 
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4.  STIFS 


TEMP  = TMP1  - FTMP1 


/ TMP1  - TMP2  \ 
\FTMP1  - FTMP2  / 


BETAG  = 1 


R1 


BETA  = 


BETAG 
DN+  1 


XL0 


R2  - R1 
SINT 


Cones 


XLC  Cylinder 

,1 M 

/c0ST 


TTT  =(8 - 

■ T1 

T3  • T4) 

XK  = R2 

(- 

BETA  \ 

2 h 

XK1  « - 

XK3 

. [GAMBAR  + BETA  (1  - 2 • GAMBAR) 


■ BETA2  (GAMBAR  - 0 61600607)  + — XKTM  (1  - 0.61600607  BETA)] 


+ DELK1 

XK2  = XK  (1  + XKTM  ♦ SINT)  + DELK2 
where; 


XKTM  = ± 


(WHS  + W)  G 
~ 144  * PA 


2 jt  * XK1  TTT 

XL  [12(2  T3  - XNU2)]1^4  XK3^2  * XK2 
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S = B(DTH0D)1/4  (SMAT)1/2 


PS 


WS1  + 1 

(WS1)1/2  (wSl1/4  + ^ 


where. 


WS1 


3 + S 
1 + S 


RH0T 


R0F  SMAT 


1728 

WS2  = 1 - XNU2 

pAs  _ n-(PS)  (DTH0D)3/4  • T4  (SMAT)5/2  [12  (2  T3  - XNU2)  ] 1/4  • E 
6 (WS2)  XL  XK2  • XK1/2  • TTT 

m = jt-  RH0T  j(Rl  + R2)  XL0  + 2 * H(2  * EN  + 1)  • DN  • ^R2  — XL0  • 


WSTAR 


WN  • 144 

PI(R1  + R2)  XL0 


cones : 


XNTH 


(WHS  + WSTAR)  • G • SINT 
144 


■] 


R 

C0ST 


„ f / ? ? \ G(R2 -Rl2)  (WHS  + WSTAR)! 

XNPHI  = I — PAfR2  +R12  (GAMBAR  — 1))  + — — 

L K / 144  SINT  J 2 -R 

XNY  = [(XNTH)2  4-  (XNPHI)2  - XNTH  • XNPHI]  1/2 

XNYMAX  is  the  largest  value  of  XNY.  XNTHM,  XNPHIM  correspond 


* C0ST 
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cylinders 


XNTHM  = — PA  RC 

PA  RC  GAMBAR  G * XLC  (WHS  + WSTAR) 

XNPHIM  

2 144 

XNYMAX  « [(XNTHM)2  + (XNPHIM)2  - XNTHM  • XNPHIM]  1/2 

XNYMAX 

SGF 


SIGMH 


XNYMAX 

TG 


SIGH 


XNTHM 

TG 


SIGM 


D = 


XNPHIM 

TG 

E • TLC 
12  • WS2 


THT 
AT  = 

YBAR 
XIX  = 


TL  • H (2  • EN  + 1) 

THT  + EM  • TLS 

[EM  • TLC 

+ THT 

2 

EM  TLC  • TL 
+ THT 


1 

AT 

2 

+ (EN 


H + TL) 


H3 

12 


EN  • H(H-2-TL)3 
12 
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XITH 


DTH  = 


DTH0D 


XIX  - AT  • YBAR2 

(DN  + 1)  • XITH  • E 
XL0 

DTH 

D 


5.  NC3SE 

H = R^l- sin(THEATA)) 


P = PCR  + 


(WHS  + W)  G 
144 


pc  = R0C  = 0 22  • R0R 


/ p \ 0 588 

\sgr7 


£cy 


TCY 


P.R 

4(SGF) 


Z1  = 


R0F 

~6~ 


Z2  = Z2T  * R0C  * P3/4 
where. 


Z2T 


0.465  /l-GAMF2  • H1/4  . R3/2 
12  • EF3/4 


tfopt  = TF0PT 


[0.75 


Z2\4/7 

Zl/ 


ccopt 


TC0PT 


12- Z2  /4  Zlf/? 
R0C  \T  "Z27 
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cf  = TSUBF(TC) 


0.36(1-GAMF2)2/3  h*/3.r2 


tr  = TSUBC(TF)  = XCTM 


0.465  J 1 - GAMF2  H1/4  R3/2 


me  • TC 

= WEIGT  (TF,  TC)  = Z1  * TF  + — + ZK 


— sm  (THETA)) 


SIGMH  = — PCR  + 


1 44  I 4 TFUSED 


where  TFUSED  is  the  value  of  tf  chosen  by  the  routine. 


6.  Cg)NE 
R1 
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R0C 


XNTH 


0.22  • R0R 


/PCR  \°- 588 


(WHS  + W)  G 
* - PCR  + 


R 

C0STH 


XNPHI 


2R  • C0STH 


[- 


PCR  (R2  + Rl2  • (DPC  — 1)) 


_ G (R2  - Rl2)(WHS  + W) 
+ ■■ 

144  SINTH 


XNY 


= yj  (XNTH)2  + (XNPHI)2 


- XNTH  XNPHI 


TCY 


XNYMAX 
2 • SGF 


where  XNYMAX  is  the  largest  value  of  XNY, 


Z2  = ZLILK  (1  + ZTERM  • SINTH)  + DELZ2 


where, 


ZTERM 


(WHS  + W)  G 
144  PCR 


3 Jdi 


Z1  = ZLILK3  j DPC  + B (1  - 2 • DPC)  + B2  (DPC  - 0.61600607) 


B • ZTERM  • (1  - 0.61600607  • 


SINTH 


(■-f) 


DELZ1 
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A = ATM 


(1) 


where, 


ATM 


ZLAMI3 


2 * TI  • T3  • T4 


ZLILK3//2  V 2 T3  - GAMFZ 
/Zl\2 

P=pTM(— ) .21 


1/4 


where. 


32  ♦ Tl  T3  - ZLAMD2  / 1 - GAMF2  \ / PCR  \ 


(ZLILK)5 
P • ZLILK  R0F 


2 ♦ T3  - GAMF-1 


a)  \ef  J 
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R0C 
12 


2 84 


cfopt 


TF0PT  = (Cl)0*414  * (C2)°*586 


'cop*  * TC0PT  “ L1X  (|j) 


tf  = TSUBF(TC)  = 


P ZLILK 
18.6  (A  VrTC)2*84 


tr  = TSUBC(TF)  = 0.127 


/ P ZLILK  \ 
\ TF  A2*84/ 


0.704 


R0F  * TF  R0C  TC 

WEIGT  (TF,  TC)  = + — - — - + ZK 
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WT 


W(R1  + R2)  (R2  — Rl)  n 
SINTH  144 


SIGMH  = 


XNYMAX 
2 • TFUSED 


SIGH 


XNTHM 
2 TFUSED 


SIGM 


XNPHIM 
2 • TFUSED 


where  TFUSED  is  the  value  of  t£  chosen  by  the  routine. 

7.  CYLIND 

w w /pCR\  °*588 

pc  = R0C  = 0.22 (R0R)  (— ) 


X2 


R0C 

12 


XI  = 


X1T 

PB 


where, 


PB 


(ST  + 1) 

VsT  (st^4  + 


DELK2 \ 
RC  / 


ST 


3 + S 


1 + S 


XNTH  = - PCR  * RC 


PCR  ♦ RC  DPC 


G (DEL)  (WHS  + W) 
" 144 
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XNY  - [(XNTH)2  + (XNPHI)2  - (XNTH)  (XNPHI)]1/2 


TCY 


XNY 
2 (SGF) 


cfopt 


TF0PT  = 


4.7  (XI)0-4  (X2)°-6 
R0F 


TC0PT  = 1.176 


(I)' 


S = STM  (TCUSED)1/2 


[DELKl 
DPC  + 

RC3 


DEL  (WHS  + W)  G~| 
(RC)  (144)  (PCR)  J 


where, 


2 22  (RC)1/2 

DEL  (1  - GAMF2)1/4  (1  + 


DELK2 \ 
RC  ) 


tf  = TSUBF(TC)  = ■ 


TFTM 


where, 


(TC)3/2  (PB) 


PCR  (RC)3/2  (DEL)  (1  - GAMF2)3/4  (0.45219638) 
EF 

TCTM 


cc  = TSUBC(TF)  = 


where, 

TCTM 


= 0.404 


(TF  PB)2/3 

PCR  (RC)3/2  (DEL)  (1.75) 
EF 


I 2/3 


(1  - GAMF^) 


1/2 


R0F  TF  RjJ)C  • TC 

= WEIGT  (TF,  TC) ~ T + ZK 


J • RC  • DEL  tt 
72 

XNY 

" 2 (TFUSED) 
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SIGH 


XNTH 


2 (TFUSED) 


SIGM 


XNPHI 
2 (TFUSED) 


8*  BASE 


P 


PCR  + gS  + W)G 
144 


R0C  = 0 22  • F0R 


, p \ 0.588 
.SGR/ 


21  *= 


R0F 

6 


Z3  = Z3T  P 
where 


Z3T 


RT2  (3.  + GAMF) 
16  SGF 


TE0PT  = 


TCUSED  *= 


Z3 

TFUSED 


TFUSED  = 


Z3 

TCUSED 


R0C  • TCUSED 
12 


+ ZK  + Z1  • TFUSED 


WT 


W » n-  RT2 
144 
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9.  TENS0N 


R3  = RC  - RSC 


R2  « RN  • sm  (THN)  + RSN  (cos  (BETA)  - cos  (THN)) 

fl  + cos  (BETA)~| 

XL0GB  = log  — 

e L sin  (BETA)  J 


2 • XL0GB 


PCR  • R3 
Cl  * SIGCYF 


YCALC  = 


(R22  - R32) 


l + C0STH 
SINTH 


) 


XL  0GB 


R3  T3 

T « 

YCALC 


YDYDT 


(R22  - R32) 

SINTH  • 2 • XL0GB 


A (I) 


I = 1,  2,  ...  25 


W(I)  = T A (I)  I = 1,  2,  . . 25 


WTT 


2n  • R0F 
1728 


BETA 


W 
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BETA 


10.  GNRLSH 


T3 


-(PCR)(12) 


sm  (TH3G)  (DTHDY3)  + 


A cos  (TH3G)  " 
Y3 


XNUM  = Y (J)  - Y (J  - 1) 
DEN0M  » X 0)  - X (J  ~ 1) 


THETA  = tan 


/XNUM  \ 
\ DEN0M / 


SINTH  = sin  (THETA) 


X = 


T3  (Y3) 


1-A 


Y(J) 


1-A 


where  Y3  is  the  last  element  of  the  Y- array. 
Y (J) 

AFUNCT(J)  = 

SINTH 

WFUNCT(J)  = T AFUNCT  (J) 


r 


WTG  = 2-n  • R0F  / WFUNCT 
UY(1) 


r. 


AG  = 2 w / AFUNCT 

Y(l} 


WGENST  * WTG/AG 
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R3  ~ 12  • Y3 


/ RC3  * WS1  \h 

RR  = ) 

\ 1.7  • 7T  / 


I (2it)  (0  3)  • T3  • SIGCYF 


/R3  • T3  • SIGCYF 


0.6 jt  (ER) 


jt2  ■ RR  • TR  • R0RG  (RC- RR) 


2 n * RSC  • WS2 


WS2  = R3  • TH3  + RSC  (sm  (TH3)  - TH3  * cos  (TH3)) 


12.  H0TSTR 


ENC1  = XN(23.3)  + X0  (24.3)  + XC (35.7)  + XA(  15.26) 


ENC2  = XN(49  S3)  + X0(52.5)  + XC (100.1)  + XA(30.5)~ 


AW  = 0.001  \—  ENC1  - — ENC2] 

L3  6 J 


BW  [ENC1  - 0.5  ENC2] 

9 
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DELTAT 


( * T (AW  • TW1.+  BW  TWi’2)] 

" iFC  Qa  L1 2J  + FR'QRI 

- EMISS  (I^)4}  Li 

\X200/  j (WSTAR)  (CP) 

TW1  = TW  + 460 
WSTAR  is  current  weight  . 

TW  = TW  + DELTAT  • DELTAU 
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I GENERAL  PURPOSE  SUBROUTINES 


A ARTLU 

1 Purpose 

The  purpose  of  subroutine  ARTLU  is  to  perform  a linear  interpolation 
within  N < 10  dependent  variable  tables  Y1TBL,  Y2TBL,  , corres- 
ponding to  a monotonically  increasing  independent  variable  table  XTBL 

2.  Calling  Sequence 

N number  of  dependent  variable  .tables  {N  < 10). 

X independent  argument  (X  must  not  be  larger  than  the  last 

element  of  XTBL)* 

XTBL  table  of  independent  variable  {maximum  of  1000  elements). 

Y1  dependent  argument* 

Y1TBL  table  of  dependent  variable,  with  elements  corresponding 

to  those  in  XTBL- 
Y2  dependent  argument. 

Y2TBL  table  of  dependent  variable,  with  elements  corresponding  to 

those  in  XTBL  . 


3 Method 

Within  the  DO  11  loop  the  index  I is  increased  until  XTBL(I),  the  last 
value  of  XTBL  smaller  than  the  argument  X has  been  found  P is  then  de- 
fined as  (X-XTBL(I))  /(XTBL(I+1  )-XTBL(I)).  The  computed  G0  T0  ensures 
that  N values  of  the  dependent  variable  will  be  computed  between  State- 
ments N and  1 For  each  i,  1 S i ^ N, 

Yi  = YiTBL(I)  + P * (YiTBL(I+l)  - YiTBL(I)). 

If  X is  smaller  than  the  first  element  of  XTBL,  automatic  linear  extra- 
polation is  performed  from  the  first  two  elements  of  the  tables.  If  X 
is  larger  than  the  last  element  of  XTBL  an  unpredictable  error  will 
result,  although  a value  of  I > 1000  would  produce  an  error  message 
written  according  to  F0RMAT  Statement  30. 
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B.  AR2TLU 


1.  Purpose 

The  purpose  of  Subroutine  AR2TLU  is  to  perform  an  interpolation  within 
a two-dimensional  table  ZTBL  the  elements  of  which  correspond  to  the 
entries  in  two  one-dimensional  monotonically  increasing  tables  XTBLi 
and  YTBL. 

2 Calling  Sequence 

NX  number  of  values  in  XTBL. 

NY  number  of  values  m YTBL. 

X independent  argument. 

XTBL  table  of  independent  variable. 

Y independent  argument 

YTBL  table  of  independent  variable 

Z dependent  argument 

ZTBL  table  of  dependent  variable  (with  dimension  (NX,  NY)) 

3 Method 

The  D£>  5 loop  searches  XTBL  for  XTBL(I),  the  first  element  greater 
than  or  equal  to  X If  there  is  no  such  XTBL{I),  an  error  message  is 
written,  ICHK  is  set  to  1,  and  a return  to  the  calling  routine  Is  executed 

Similarly,  the  D(#  15  loop  searches  YTBL  for  YTBL(  J),  the  first  element 
greater  than  or  equal  to  Y If  there  is  no  such  YTBL(J),  an  error  message 
is  written,  ICHK  is  set  to  1,  and  a return  to  the  calling  routine  is  executed 

If  there  is  no  error  return,  Z is  computed  starting  at  Statement  20  accord- 
ing to  the  following  formula: 

Z = (1  - PI  - P2  4*  P3)  * ZTBL  (I  -l,  J-l)  + (PI  - P3)*ZTBL(I,  J-l) 
+ (P2  - P3)  * ZTBL  (1-1,  J)  + P3  * ZTBL(I,  J) 

where, 

PI  = (X  - XTBL(I-1))/(XTBL(I)  - XTBL(I-l)) 

P2  = (Y  - YTBL( J-l))/ (YTBL(J)  - YTBL(J-l)) 

P3  = PI  * P2  . 

Return  is  then  made  to  the  calling  routine 
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c.  ARSIMP 


1 Purpose 

The  purpose  of  Subroutine  ARSIMP  is  to  integrate  by  Simpson's  Rule  an 
array  YARRAY  of  N points  tabulated  at  an  equally- spaced  interval  of  the 
independent  variable. 

2 Method 

The  calling  sequence  is 

CALL  ARSIMP  (N,  DELTAX,  YARRAY,  ANSWER) 
where. 


N 

DELTAX 

YARRAY 

ANSWER 


number  of  points  to  be  integrated  (N  must  be  odd  ) 
interval  of  independent  variable  at  which  array  points 
were  tabulated 

array  of  points  to  be  integrated 
result  of  integration 


The  Simpson's  Rule  algorithm  is  applied  in  a D0  loop 


D.  ADAMS4 


1 Purpose 

The  purpose  of  Subroutine  ADAMS4  is  to  integrate  a set  of  N first  order 
differential  equations  by  a predictor -corrector  method 

2 Method 

ADAMS4  is  a slightly  modified  version  of  Subroutine  ADM4RK  The 
differences  between  the  two  routines  are  as  follows: 

a.  The  calling  sequence  for  ADAMS4  is 

CALL  ADAMS4  (NZ,  ZDEL,  VALUE,  DERN,  UPBND, 
DNBND,  FACTOR,  FREQ,  HLIMIT,  LZ,  ZXINDE, 

DELMIT,  DEREQ,  PAR,  NPAR) 

All  but  the  last  three  arguments  are  defined  identically  as  those 
in  ADM4RK  The  arguments  DEREQ,  PAR,  and  NPAR  were 
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added  to  the  list  They  have  the  following  meanings 

DEREQ  name  of  subroutine  defining  derivatives  {The  name 
can  now  be  arbitrary  but  must  appear  in  an  external 
statement  in  the  calling  program  ) 

PAR  array  of  parameters  appearing  m the  derivative 

calculations  (In  ADM4RK,  information  is  generally 
transmitted  to  DEREQ  through  C0MM0N  ) 

NPAR  number  of  elements  in  the  array  PAR 

b.  Within  ADAMS4  the  calling  sequence  for  DEREQ  is 

CALL  DEREQ  (NZ,  VALUE,  XINDEP,  DERN,  LZ, 

PAR,  NPAR) 

The  three  elements  added  to  the  list  NZ,  PAR,  and  NPAR,  have 
the  same  meaning  here  as  in  the  ADAMS4  calling  sequence. 

c After  the  3 CALL  DEREQ  statements  within  ADAMS4,  the 
controlling  parameter  L is  tested  in  an  IF  statement.  If  L > 6, 
immediate  return  is  made  to  the  calling  program  This  allows 
L to  be  reset  within  DEREQ  to  indicate  an  error  condition  which 
the  main  program  may  act  upon 

The  original  writeup  of  ADM4RK  has  been  included  in  this  section  of 
the  manual. 


E.  ADM4RK1 

1.  Purpose 

To  allow  integration  of  N differential  equations  by  a predictor-corrector 
method  which  will  alter  the  delta  of  integration  so  that  the  required  ac- 
curacy is  maintained. 


*Sova,  c.,  Avco  Programmer’s  Handbook,  No.  F2-70,  IBM  70 94  (11  March  1965) 
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CALL,  ADM4RK  (N,  DEL,  VALUE,  DERN,  UPBND,  DNBND,  FACTOR, 
FREQ,  HLIMIT,  L,  XINDEP,  DELMIT) 


where, 

N 

DEL 

VALUE 

DERN 

FREQ 

HLIMIT 

L: 

= 1 

= 2 
= 3 
= 4 

= -5 
= 6 


The  number  of  equations  to  be  integrated. 

The  delta  of  integration. 

The  array  of  N integrated  values. 

The  array  of  N derivative  values. 

The  value  which  indicates  the  interval  at  which  the  user  would 
like  to  return  to  the  calling  program 

The  value  which  specifies  the  upper  limit  of  integration 
When  this  value  is  reached,  return  is  made  to  the  calling 
program. 

The  control  parameter: 

Indicates  initial  pass.  Must  be  set  by  user  who  desires  FREQ 
and  HLIMIT  testing. 

Indicates  that  a FREQ  interval  has  been  reached. 

Indicates  that  HLIMIT  has  been  reached. 

Indicates  that  HLIMIT  and  FREQ  interval  has  been  reached, 
simultaneously. 

Indicates  that  return  to  the  calling  program  is  to  be  made 
after  each  successful  integration  step.  This  will  be  set  to  +5 
during  the  initial  pass.  No  tests  are  made  for  FREQ  or  HLIMIT. 

Indicates  that  the  integration  interval  is  less  than  DELMIT. 


XINDEP 


The  value  of  the  independent  variable. 


UPBND  The  upper  bound  on  the  absolute  difference  that  is  allowed 

between  the  extrapolated  and  interpolated  values.  If  this  bound 
is  exceeded  by  this  difference,  the  delta  of  integration  is 
reduced  and  integration  is  retried. 

DNBND  The  lower  bound  on  the  absolute  difference  between  the  extra- 

polated and  interpolated  values.  If  this  bound  exceeds  this 
difference,  the  delta  of  integration  is  increased  and  integration 
is  carried  on. 

FACTOR.  The  percentage  by  which  the  delta  of  integration  is  increased 
or  decreased  m the  above.  This  must  be  less  than  1. 

DELMIT  The  value  below  which  we  do  not  wish  to  reduce  the  delta  of 

integration.  If  this  is  not  specified  (1.  e.  , = 0),  it  will  be  set 
to  the  initially  specified  delta  of  integration  divided  by  1000.  0. 

In  addition,  the  user  must  supply  a subroutine  having  the  following  speci- 
fications: 

a.  Calling  sequence  CALL  DEREQ  (A,  B,  C,  I) 
where, 

A The  array  of  N integrated  values 
B The  value  of  the  independent  variable 
C The  array  of  N derivative  values 
I Corresponds  to  L m the  explanation  above. 

b.  Use 

This  routine  should  evaluate  the  N differential  equations  given  the  N 
integrated  values  at  the  value  of  the  independent  variable  B 

c.  Restriction 

The  values  of  the  integrated  variables,  if  used  m this  routine  should  be 
picked  up  from  the  argument  A and  B above  only  and  not  from  XINDEP  and 
VALUE  which  were  previously  defined.  Also  nothing  should  be  stored  into 
A and  B. 
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3.  Sample  of  Use 


Given:  <*2  y 

dx2 


x where  y0 


0, 


dyQ 

dx 


= 0 


evaluate  y from  0 to  x = 100  and  print  the  values  of  y at  x = 0,  2,  4,  6, 

100.  Starting  with  an  initial  Ax  of  0.005  and  increase  or  decrease  the  Ax 
by  30  percent  if  the  difference  between  the  extrapolated  and  interpolated 
values  do  not  fall  between  certain  given  bounds. 


DEREQ  (D,  X,  LT,  L) 

DIMENSION  D(7),  DT  (8)  . 

DT  (1)  n D (2) 

DT  (2)  = x 

RETURN 

END 

DIMENSION  D (2),  DT  (2),  UPBND  {2),  DNBND  (2) 
L = 1 or  L = -5 
DELTAX  ss  0,005 
X = 0.  0 


D (1)  = 

0.  0 

D (2)  = 

0,  0 

UPBND 

(1)  = 

1.  0E  - 5 

DNBND 

(1)  = 

1 . 0E  - 6 

UPBND 

(2)  = 

0.  5E  - 5 

DNBND 

(2)  = 

0.  5E  - 6 
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1 CONTINUE 

CALL  ADM4RK  {2,  DELTAX=  D=  DT=  UPBND=  0.3,  2.0,  100.0, 
L,  X,  1.  OE-7) 

WRITE  OUTPUT  TAPE  5,  2,  X,  D (1) 

2 FORMAT  (1P2E20.  5) 

GO  TO  (1,  1,  3,  3,  4,  5),  L 

3 STOP  77777 

4 IF  (X  - 100.  0)  1,  3,  3 

5 CALL  MESSAG  (24H  DEL  X IS  TOO  SMALL,  3) 

STOP  77776 
END 

F.  POLROT 

1*  Purpose 

The  purpose  of  Subroutine  POLROT  is  to  calculate  the  roots  of  a 
polynomial 

2.  Method  

The  calling  sequence  is 

CALL  POLROT  (N,  A,  R,  C) 

N degree  of  polynomial.  Maximum  of  20 
A coefficients  of  polynomial  (Note  that  A(l)  is  the 
coefficient  of  Xn  ) 

R roots  of  polynomial  R is  dimensioned  (2,  N)  where  R{1,  J) 
is  the  real,  R(2,  J)  is  the  imaginary  part  of  the  JUl  root 
C convergence  factor,  (C  - 10~  is  satisfactory  in  most  cases  ) 

Newton-Raphson  iteration  is  used  Therefore,  if  f(x)  is  the 
polynomial  and  if  f'  (r)  — *■  0,  the  method  will  not  converge. 
Moreover,  the  constant  term  of  the  polynomial  cannot  be  0. 

(P0LR0T  calls  P£)LRT1  ) 

&7±< 
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G.  C0MDIV 


1 . Purpose 

The  purpose  of  Subroutine  C0MDIY  is  to  evaluate  E + iF  = (A  +iB)/ 
{C  + iD)  when  A,  B,  C,  D are  given 

2.  Method 

The  calling  sequence  is 

CALL  C0MDIV  (A,  B,  C,  D,  E,  F) 

The  routine  calculates 

G = C * C + D * D 
E = (A  *C  + B * D)/G 

F = (B  * C - A * D)/G 


H.  ATANQR 


1 Purpose 


The  purpose  of  function  ATANQR(W,  H)  is  to  calculate  the  arc- 
tangent of  W/H  where  W and  H are  floating  point  numbers,  and 
to  return  the  result  either  in  radians  or  degrees  The  convention 
to  be  observed  is  that 


0 < 


AT  ANQR  (W,  H)  < 


\2  tt 

|360  degrees 


2.  Method 


ATANQR  is  a multiple  entry  function  with  entry  points  ATANQ  and 
ATANQD 


If  ATANQR  (W,  H)  or  ATANQ  (W,  H)  is  referenced,  D is  set  to  1 , 
and  X is  defined  as  ATAN2(W,  H),  where  ATAN2  is  the  FORTRAN  IV 
library  function  IF  X < 0,  it  is  reset  to  X + 2 77  Then  ATANQR 
is  defined  as  X/D, 

If  ATANQD(W,  H)  is  referenced,  D is  set  to  0 017453293,  xand  the 
remaining  computations  are  carried  out  as  before. 


i>?Z< 
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I ASINR 


1 Purpose 

The  purpose  of  function  ASINR(W)  is  to  calculate  the  arc-sine  of  a 
floating  point  number  W and  to  return  the  result  either  in  radians 
or  degrees.  The  convention  to  be  observed  is 

0 < ASINR  (W)  < | ff/2 

( 90  degrees 


or, 


3tt/2 

270  degrees 
2 . Method 


< ASINR(W)  < 


2 IT 

360  degrees  . 


ASINR  is  a multiple  entry  function  with  entry  points  ASIN  and  ASIND. 


If  ASINR(W)  or  ASIN(W)  is  referenced,  D is  set  to  1.,  WS  is  defined 
as  1 - W * W,  and  ASINR  is  computed  as 

ASINR  = ATANGR  (W,  SQRT{WS))/D 


If  ASIND(W)  is  referenced,  D is  set  to  0 017453293,  and  the  remain- 
ing computations  are  carried  out  as  before 


J.  AC0SR 

1.  Purpose 

The  purpose  of  function  AC0SR(W)  is  to  calculate  the  arc- cosine  of 
a floating  point  number  W and  to  return  the  result  either  in  radians 
or  degrees  The  convention  to  be  observed  is 

0 < AC0SR(W)  < | ^ 

| 180  degrees 


2 Method 

AC0SR  is  a multiple  entry  function  with  entry  points  AC0S  and  AC0SD 

If  AC0SR(W)  or  ACjDS(W)  is  referenced,  D is  set  to  1 , WS  is  defined 
as  1 - W * W,  and  ACjOSR  is  computed  as 

AC0SR  = ATANQR  (SQRT(WS),  W)/D 
-10- 
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If  ACi£)SD(W)  is  referenced,  D is  set  to  0 017453293,  and  the  remain- 
ing computations  are  carried  out  as  before 

K.  AICRT31 

1 . Purpose 

AICRT3  is  a general-purpose  subroutine  for  the  displaying  of  output 
data  m graphical  form 

2.  Method 

From  the  user's  viewpoint,  the  version  of  AICRT3  to  be  used  with 
FORTRAN  IV  programs  operates  m the  same  manner  as  the 

FORTRAN  II  version  Therefore,  although  no  new  writeup  was  issued 
for  FORTRAN  IV,  the  following  original  writeup  still  described  the 
subroutine  usage,  if  the  reader  makes  allowances  for  the  standard 
differences  between  the  two  systems  9(e.g.,  FORTRAN  IV  arrays 
being  stored  forward  in  core): 

a.  Log  x Log 

b.  Log  x Linear 

c.  Linear  x Log 

d.  Linear  x Linear. 


Along  with  these  types  of  graphs,  AICRT3  has  the  ability  of  plotting  multi- 
function graphs.  If  this  feature  of  the  code  is  used,  one  must  obtain  separ- 
ately the  upper  and  lower  limits  of  the  functions.  One  must  then  supply 
the  upper  and  lower  limits  to  the  subroutine  by  use  of  the  override  feature, 
or  first  plot  the  curve  which  has  both  the  maximum  value  of  all  functions 
being  plotted  and  also  the  minimum  value  of  all  functions.  If  the  override 
feature  is  used,  the  arguments  supplied  are  unaltered.  If  the  override 
feature  is  not  used,  the  upper  and  lower  limits  are  determined  by  the  code 
and  returned  to  the  user  via  the  arguments.  Therefore,  the  programmer 
must  not  place  a variable  or  constant  for  said  arguments  that  are  to  be 
used  again  at  their  original  values,  since  they  will  be  changed  by  this  sub- 
routine. The  override  feature  also  will  give  the  user  the  ability  for  a 
standard  size  grid  for  multiple  case  plotting. 


1 Hoffman,  M , General  Code  for  Display  of  Digital  Data,  Applied  Mathematics,  Atomic  International,  Naa,  Inc., 
Canoga  Park,  CaliforniafS January  19©},  published  and  distributed  under  bylaws  of  UAIDE 
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3.  Use 


The  method  one  uses  to  obtain  the  above  named  plot  is  as  follows: 

a.  On  the  EDPM  Job  Request,  deck  set  up  instructions;  request 
subject  deck  first  before  data 

b.  In  your  program  deck  for  each  plot,  use  the  following  calling 
sequence: 

CALL  AICRT3  (KX,  KY,  X,  Y,  NP,  ND,  NV,  NS,  NC,  T,  A,  0,  NF, 
NG,  DCX,  DCY,  NXQ5,  XL,  XU,  NY0,  YL,  YU)  * 


c.  This  routine  should  not  be  used  to  plot  a point  at  a time. 

4 Input  Data  Description 

The  inputs  for  this  program  are  the  arguments  of  the  calling  sequence  in 
Section  5.  They  are  as  follows* 


KX  0 for  linear  display  m X 

1 for  log  display  in  X 

KY  0 for  linear  display  m Y 

1 for  log  display  m Y 

X First  location  of  storage  for  values  of  X 

Y First  location  of  storage  for  values  of  Y 

NP  Number  of  points  m X and  Y array  to  be  plotted 

ND  Interval  at  which  points  will  be  displayed,  e.  g.  , 

every  point  = 1,  every  10th  point  = 10 

NV  2 if  one  wishes  to  join  points  plotted  with  a straight  line 

1 if  not 


•The  arguments  for  this  calling  sequence  -will  be  explained  in  the  next  section 


675< 
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NS 

2 if  the  data  is  to  be  sorted  as  a function  of  X 
1 if  the  data  is  not  to  be  sorted  (This  is  to  enable  the 
connecting  of  points  by  vectors.) 

NC 

Character  representation  of  point  to  be  plotted 

T** 

A nine  word  title  to  be  displayed  at  the  top  of  the  graph 

A** 

A nine  word  abscissa  title 

(?** 

A nine  word  ordinate  title 

NF 

1 if  new  frame  is  required 

2 if  overlay  is  required 

NG 

1 non-log  labeling  determined  by  code 
If  any  X meets  the  following  condition, 

1 X | > 106 

or  if  all  X are  in  the  range  -10^  < X < 10^  the 
labeling  would  automatically  be  E-label  notation. 
-2  non- log  labeling  always  E-label  notation 

DCX,  DCY 

Governs  the  coarseness  of  the  X and  Y linear  meshes. 
(See  Section  Y - Special  Features,) 

NX0 

2 override  search  for  X-upper  and  X-lower. 

1 let  routine  determme-X-upper  and  X-lower  (See  section 
E - Special  Features  . ) 

XL 

X-lower,  if  needed  (NXC?  = 2) 

XU 

X-upper,  if  needed  (NXC?  = 2) 

NYC? 

2 override  search  for  Y-upper  and  Y-lower 
1 let  routine  determine  Y-upper  and  Y-lower 

YL 

Y-lower,  if  needed  (NYC?  = 2) 

YU 

Y-upper,  if  needed  (NYC?  = 2), 

**Must  be  stored  in  FORTRAN  order  (backwards  in  core)  or  read  into  core  using  the  A conversion 
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5.  Special  Features 


It  should  be  noted  that  16,  0 is  the  recommended  value  for  DCX  and  DCY. 

If  it  is  necessary  to  have  more  grid  lines,  all  one  has  to  do  is  decrease 
the  value  of  DCX  and  DCY.  If  one  wants  fewer  lines,  increase  the  value 
of  DCX  and  DCY.  Another  note  of  special  interest  is  that  the  entire  array 
of  X and  Y that  are  being  plotted  must  be  in  core  at  the  time  of  execution 
of  this  routine. 

The  feature  of  sorting  the  functions  before  plotting  has  one  drawback;  viz. , 
after  the  functions  have  been  sorted,  the  original  order  is  totally  destroyed. 
This  feature  should  not  be  used  unless  the  plotting  of  the  data  is  the  last 
function  of  the  code  or  order  of  the  data  is  of  no  importance. 

If  (XU/  XL  -1)  < 0.  0001,  or  if  XU  = XL  = 0,  no  graph  will  be  drawn  as  the 
function  is  or  is  almost  constant  (similarily  for  YU  and  YL). 

The  titles  used  should  be  centered  in  the  48-character  array  to  ensure 
centering  of  the  titles  on  the  graph.  The  abscissa  and  ordinate  title  can 
be  as  large  as  54  characters. 

If  one  uses  the  upper  and  lower  limit  search  provided  by  AICRT3,  care 
should  be  exercised  in  the  definition  of  the  variable  or  constant  used  for 
XL,  XU,  YL,  or  YU  as  they  will  be  changed  by  the  subroutine. 

NG  is  used  to  permit  a floating  point  notation  labeling  of  linear  plots. 

This  is  provided  because  the  maximum  fixed  point  number  that  can  be 
used  is  999999,  and  the  smallest  greater  than  zero  0.  000001,  similarly 
for  negative  values.  To  provide  meaningful  labeling  of  data  outside  this 
range,  the  floating  point  notation  has  been  made  available. 

A very  important  factor  is  assigning  X and  Y arguments  is  to  make  sure 
you  only  have  a singly  subscripted  array  for  each. 

The  limit  of  the  number  of  cycles  in  log  plotting  is  10.  Do  not  try  to  plot 
more  than  a 10  x 10  log  x log  plot. 
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